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ABSTRACT 


A  full-screen,  scrollable  spreadsheet-like  editor  written  in  the  APL2  language  is  de¬ 
scribed  for  inputting,  examining,  and  outputting  data.  Mixed  numeric  and  character  arrays 
can  be  read  into  or  read  out  to  formatted  or  comma  delimited  ASCII  files.  Alternatively 
a  bulk  mode  input  facility  allows  for  rapid  direct  data  entry,  or  data  can  be  examined  and 
edited  cell-by-cell  in  the  usual  way.  Columns,  rows  or  blocks  of  data  can  be  highlighted 
in  a  chosen  color,  shadowed,  moved  or  copied.  In  addition  APL  functions  entered  on  a 
command  line  can  use  the  blocks  as  input  or  output.  A  facility  for  coding  missing  values  is 
also  provided.  Output  is  obtained  as  a  new  spreadsheet,  or  equivalently  as  an  APL2  matrix. 
In  particular  two-way  cross-tabulations  of  multiple  columns  are  laid  out  in  the  spreadsheet 
like  draftsmen’s  plots  to  facilitate  investigation  and  explanation  of  multivariate  categorical 
data.  No  numerical  coding  of  the  data  is  needed.  Flexible  printing  of  arrays  is  provided,  as 
well  as  lexicographic  sorting  of  rows. 

A  specific  application  of  the  techniques  and  the  APL2  program  is  made  to  a  database 
constructed  with  the  author’s  assistance  and  maintained  by  the  Defense  Personnel  Security 
Research  and  Education  Center  (PERSEREC),  Monterey,  California.  This  database  is  the 
basis  of  a  large  scale  study  of  the  Special  Background  Investigation.  The  study  is  designed 
to  evaluate  the  productivity  of  investigative  sources  in  developing  the  necessary  information 
to  determine  eligibility  for  access  to  Sensitive  Compartment  Information. 


in 


/  tlcii/O 


THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  assure  that  the  programs  are  free  of  computational  and  logical  errors, 
they  cannot  be  considered  validated.  Any  application  of  these  programs  without  additional 
verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 


A.  GENERAL  OUTLINE 

This  thesis  has  two  aspects.  The  first  aspect  is  the  writing  of  a  full-screen,  spreadsheet¬ 
like  data  editor  written  in  the  APL2  language  to  perform  preliminary  numerical  analysis 
for  categorical  data.  APL2  is  the  IBM  Corporation’s  implementation  of  some  modern  APL 
concepts.  The  second  aspect  of  the  thesis  is  the  application  of  this  editor  to  a  large  database 
consisting  mostly  of  character  data. 

Categorical  (or  categorized)  data  are  data  which  are  presented  in  the  form  of  attributes 
falling  into  certain  categories  or  classes.  A  categorized  variable  may  simply  be  a  convenient 
classification  of  a  measurable  variable  into  groups.  On  the  other  hand,  it  may  not  be 
expressible  in  terms  of  an  underlying  measurable  variable  at  all.  For  example,  we  may 
classify  people  by  (a)  their  sex,  (b)  their  hair  color,  (c)  their  height;  (c)  is  a  categorization 
of  a  measurable  variable,  but  (a)  and  (b)  are  not.  Also  the  hair  color  may  be  expressed  on 
an  ordered  scale  from  light  to  dark;  this  is  not  so  for  (a),  (a)  is  referred  to  as  an  unordered 
classification  and  (b)  as  an  ordered  one  [Ref.  1:  p.  536].  An  extreme  case  of  an  unordered 
classification  would  be  simply  a  labelling  of  different  samples. 

To  assist  the  statistician  in  examining  a  set  of  categorical  data,  an  APL2  workspace, 
UEDIT,  has  been  written  to  permit  the  analysis  in  a  flexible  and  consistent  way  of  all  types 
of  classification  by  means  of  recoding,  sorting,  frequency  counting,  crosstabulation  and  con¬ 
tingency  table  analysis.  The  use  of  this  workspace  and  the  computer  system  requirements 
are  described  in  Appendix  C. 

The  second  aspect  of  this  thesis  is  the  specific  application  of  the  UEDIT  workspace  to  a 
database  consisting  of  character  and  numerical  data.  This  database  was  constructed,  with 
the  author’s  assistance,  and  is  maintained  by  Dr.  Ralph  Carney  at  the  Defense  Personnel 
Security  Research  and  Education  Center  (PERSEREC)  in  Monterey,  California.  It  is  the 
basis  of  a  large  scale  study  designed  to  evaluate  the  productivity  of  investigation  sources  in 
developing  the  necessary  information  needed  to  determine  eligibility  for  access  to  Sensitive 
Compartmented  Information  (SCI).  At  this  time  the  database  consists  of  1173  issue  cases 
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where  each  case  contains  64  fields  of  information;  the  total  number  of  cases  is  projected  to 
be  15,000. 

B.  PURPOSE  OF  THE  THESIS 

The  purpose  of  this  thesis  is  twofold:  first,  to  make  a  contribution  to  increased  pro¬ 
ductivity  during  personnel  security  investigations,  and  second,  to  make  a  contribution  to 
analytical  and  computational  methodology  by  bringing  together  in  one  package  various 
statistical  and  computational  techniques  not  available  elsewhere. 

1.  Contribution  to  Increased  Productivity 

Special  Background  Investigation  (SBI)  is  a  main  component  in  the  process  of 
determining  the  eligibility  for  access  to  Sensitive  Compartmented  Information.  This  inves¬ 
tigation  has  to  cover  a  long  time  in  the  life  of  the  individual  and  is  expensive.  The  DCI 
Personnel  Security  Working  Group  (PSWG)  is  examining  the  investigative  requirements  in 
a  large  scale  study  to  make  a  99%  risk  assessment  on  the  length  of  coverage  required  and  to 
evaluate  the  productivity,  i.e.,  the  importance  and  usefulness,  of  the  information  provided. 
The  study  will  involve  15,000  issue  cases  in  its  final  stage. 

2.  Contribution  to  Analytical  Methodology 

There  is  a  great  number  of  statistical  software  on  the  market  today.  The  most 
popular  programs,  including  STATGRAPHICS,  SASt  SPSS  /PC +  and  MINITAB ,  are  all 
adept  at  numerical  methods.  However  no  one  program  has  a  convenient  method  for  tabu¬ 
lating  frequency  counts,  crosstabulation,  aggregation  of  classes  of  frequencies  and  recoding 
of  character-based  categorical  data.  The  UEDIT  APL2  workspace  written  for  this  thesis  has 
these  capabilities  and  allows  the  user  to  work  in  a  consistent  way  with  one  spreadsheet-like 
matrix  containing  all  the  data. 

Several  functions  of  the  UEDIT  workspace  are  not  found  in  other  statistical  pack¬ 
ages.  These  functions  include  the  ability  to  enter  new  data  or  change  existing  data  manually 
in  a  bulk  mode  or  to  import  data  from  formatted  or  comma  delimited  ASCII  files  or,  with 
a  separate  utility  function,  data  files  created  by  STATGRAPHICS .  Columns  of  data  can 
be  easily  recoded  to  provide  more  meaningful  labels.  Major-to-minor  (lexicographic)  sorts 
can  be  performed  on  selected  columns,  conditional  and  unconditional  frequency  tabulations 
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and  crosstabulations  can  be  performed.  During  these  tasks  classes  of  a  categorical  variable 
can  be  aggregated  (pooled)  interactively.  This  is  an  important  part  of  contingency  table 
analysis,  and  no  other  statistical  package  provides  the  facility  for  doing  this  which  is  found 
in  UEDIT.1  The  contingency  table  analysis  is  performed  automatically  after  each  aggrega¬ 
tion  step.  All  output  is  obtained  as  a  new  spreadsheet,  or  equivalently  as  an  APL2  matrix, 
which  is  overlaid  over  the  original  data  and  can  be  edited  in  the  usual  way. 

C.  COMPUTATIONAL  TOOLS 

The  APL2  programming  language  was  chosen  for  the  software  development  because  of 
its  compact  code  and  its  ability  to  handle  mixed  data  arrays,  i.e.,  data  in  vector  or  matrix 
form  where  each  element  may  be  numeric  or  of  character  type.  Subroutines  that  take  many 
lines  of  code  in  languages  like  FORTRAN  can  usually  be  accomplished  with  a  single  line 
of  APL2  code.  It  is  also  much  easier,  due  to  the  organization  of  an  APL2  workspace,  to 
structure  large  programs  by  performing  certain  tasks  within  subfunctions  which  can  be 
tested  and  debugged  alone,  without  the  need  to  recompile  the  complete  program. 

The  APL2  interpreter  used  for  this  thesis  is  APL2/32  for  the  IBM  PC  (version  1.02) 
developed  by  IBM.  This  interpreter  requires  a  personal  computer  based  on  the  80386  micro¬ 
processor  and  the  80387  mathematical  coprocessor.  Its  primary  advantage  is  the  ability  to 
use  all  available  random  access  memory  (RAM)  without  the  640  KB  limitation  imposed  by 
DOS2 .  However,  UEDIT  will  also  work  under  IBM’s  APL2/PC  which  runs  on  8086  and  80286 
computers.  The  package  uses  several  Auxiliary  Processors  for  file  and  full-screen  display 
management  and  for  printing.  The  use  of  STSC’s  APL*PLUS  II  was  considered  but  was 
rejected  because  of  APL2’s  more  economic  memory  management,  language  combatibility 
to  the  mainframe  version  of  APL2  and  the  availabilty  of  a  graphics  package,  GRAFSTATt 
for  microcomputers  in  the  near  future. 

1  For  instance,  the  popular  program  STATGRAPHJCS  does  not  provide  for  aggregation  in  its 
contingency  table  routines.  This  gap  was  filled  by  Ian  H.  Keith  with  his  APL*PLUS  workspace 
ANALYZE.  [Ref.  2] 

2  The  term  “DOS”  is  used  throughout  this  thesis  as  a  synonym  for  both  the  Microsoft  Disk 
Operating  System  (MS-DOS®)  and  the  IBM  Personal  Computer  Disk  Operating  System  (PC- 
DOS®). 
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The  UEDIT  workspace  does  not  require  any  additional  software.  However,  the  PC- 
version  of  GRAFSTAT  which  will  be  released  in  the  near  future  will  provide  useful  functions, 
especially  for  graphical  analysis.  A  fundamental  function  to  export  data  to  GRAFSTAT  is 
implemented  into  UEDIT.  In  the  meanwhile,  a  statistical  package  written  by  Mr.  Norman 
Thomson  of  the  IBM  Winchester  Laboratories  provides  a  flexible  source  of  routines  for  use 
with  UEDIT. 

In  a  similar  way  an  interface  is  provided  to  StatXact,  a  statistical  software  package  for 
exact  nonparametric  inference  from  Cytel  Software  Corporation.  This  interface  writes  data 
columns  to  disk  in  a  format  which  can  be  read  by  StatXact. 
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Figure  1.  Sample  UEDIT  Full-Screen  Data  Editor  Display:  It  shows  a  part  of  the 
SBI  database  with  row  and  column  labels.  The  bottom  four  lines  show  the 
status  line  with  name  and  size  of  the  edited  matrix,  the  message  line  where 
UEDIT  displays  its  prompts  and  error  messages,  the  user  input  line  and  the 
types  and  widths  of  the  matrix  columns. 
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II.  ANALYSIS  OF  CATEGORICAL  DATA 


A.  CODING  TECHNIQUES 

Categorized  data  may  be  represented  in  character  or  numerical  form.  Some  statistical 
software  packages  require  that  the  data  to  be  analyzed  have  numerical  form.  Therefore 
certain  attributes  in  a  database  have  to  be  recoded  by  a  numeral.  For  example,  in  a  data 
column  denoting  the  marital  status  of  an  individual,  single  may  be  coded  as  “1”,  married 
as  “2”,  divorced  as  “3”  and  so  on.  The  absence  of  an  attribute  (“unknown”  value)  could 
be  coded  as  “0”.  Normally  a  character  representation  is  preferred  because  very  often  the 
context  cannot  be  inferred  from  the  numerical  representation  alone  without  the  help  of  an 
additional  list  explaining  the  various  codes. 

UEDIT  does  not  require  any  numerical  coding  because  each  column  of  a  database  can 
contain  character  data  of  arbitrary  width,  or  numerical  data  in  fixed  decimal,  floating  point 
or  date  representation.  For  exam  pie,  the  marital  status  in  the  SBI  database  is  denoted  by 
“Single”,  “Married”,  “Divorced”,  “Separated”,  “Widowed”,  or  a  blank  field  if  the  status 
is  not  known.  This  approach  makes  it  easy  to  make  accurate  inferences  and  to  avoid  the 
confusion  which  might  occur  when  handling  large  databases  containing  only  numeric  codes. 

B.  FREQUENCY  COUNTS 

Frequency  counting  is  the  determination  of  the  unique  elements  of  an  attribute  and 
the  number  of  occurrences  of  each  of  those  elements.  The  preferred  method  for  computing 
the  frequency  counts  is  to  sort  the  elements  of  a  sample  of  size  n  numerically  or  lexico¬ 
graphically.  Then  the  first  element  in  the  ordered  list  is  used  as  a  label  and  the  list  is 
searched  until  an  element  k  is  found  which  is  not  equal  to  element  1.  Now  there  are  k  —  1 
occurrences  of  element  1  and  element  k  becomes  the  next  unique  element.  This  procedure 
is  repeated  until  the  list  is  exhausted.  The  result  is  a  vector  {/t,  i  =  1, . . . ,  r)  of  frequencies 
of  r  unique  elements  in  the  sample.  A  simple  implementation  in  APL2  may  look  like 

!<-((/♦- (/[sort  ((p(7)  tl)pU<-((A'iA)='ipA)/A'])'iA 

F«-(p(/)pO 
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F[A/f]+’B-  (pB)pO  ,B*- (/♦-(■  1±I#1<J>I)  ,  l)/xpI*T[Al3 

which  takes  a  vector  A  of  character  elements  and  creates  a  new  vector  U  which  consists  of  the 
unique  elements  of  A  and  a  numerical  vector  F  which  contains  the  number  of  occurrences 
of  each  element  of  U.  In  line  1  sort  is  a  subfunction  which  sorts  the  elements  of  U  in  any 
desired  order  (ascending  or  descending,  case  sensitive  or  case  insensitive). 

Prom  these  (absolute)  frequencies  fx  relative  frequencies  rx  =  fx/n  and  cumulative 
frequencies  cx  =  fj  can  cosily  be  calculated  by 

R^F/pF 

0+\F 

All  theses  values  are  automatically  calculated  by  UEDIT  whenever  a  frequency  count 
is  performed. 

C.  CROSSTABULATION 

Crosstabulation  is  an  extension  of  frequency  counting  to  two-dimensional  samples. 
Two  categorized  variables  with  equal  number  n  of  elements  in  a  one-to-one  correspondence 
are  crosstabulated  in  the  following  way.  Assuming  they  have  r  and  c  unique  elements, 
respectively,  then  for  each  unique  element  t  of  the  first  variable  a  separate  frequency  count 
for  the  number  of  occurrences  of  each  unique  element  j  of  the  second  variable  is  performed. 
This  results  in  a  matrix  of  observed  frequencies 


"11 

"12 

... 

"lc 

"i 

"21 

"22 

.  .  . 

"2c 

"2 

"rl 

"22 

nrc 

"r- 

"1 

"•2 

n.c 

n 

which  is  also  known  as  a  contingency  table. 

The  nt .  =  nij  are  called  row  sums  or  row  marginals,  the  n,3  =  nij  3X6 

called  column  sums  or  column  marginals.  They  represent  the  frequency  counts  of  both 
elements  by  its  own,  i.e.,  marginal  totals.  Again,  n  is  the  sample  size. 

A  very  efficient  method  to  implement  a  crosstabulation  into  a  computer  program  is 
the  two-way  plus  reduction  [Ref.  3:  p.  97].  It  replaces  the  indices  i  =  l,...,r  of  the 
unique  elements  of  the  first  variable  by  i'  =  c(i  -  1)  where  c  again  is  the  number  of 
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unique  elements  of  the  second  variable.  Then  k  =  t'  +  j  is  unique  for  all  t  =  1 , . . . ,  r 
and  j  =  and  a  vector  { ffk ,  fc  =  l,...,rc}  can  be  constructed  using  a  frequency 

tabulation  as  described  before,  which  consists  of  the  combined  frequencies  of  both  variables. 
By  reshaping  this  vector  into  a  r  x  c  matrix  a  contingency  table  is  obtained  to  which  a  row 
of  column  marginals  and  a  column  of  row  marginals  can  be  added. 

D.  CONTINGENCY  TABLE  ANALYSIS 

Contingency  table  analysis  is  a  statistical  method  to  measure  and  test  the  interdepen¬ 
dence  of  two  categorized  variables,  or,  as  it  is  generally  known,  the  problem  of  association. 
[Ref.  1:  p.  536] 

When  observations  are  based  on  a  nominal  measurement  scale,  i.e.,  have  no  natural 
numeric  value,  distributional  measures  such  as  mean  or  variance  are  undefined.  Association, 
i.e.,  dependence,  of  categorized  variables  cannot  be  measured  by  moments  based  on  a  joint 
probability  distribution  [Ref.  4:  p.  14].  The  method  of  contingency  table  analysis  is  very 
useful  for  the  analysis  of  associations  of  categorized  variables.  It  uses  the  contingency  table 
created  by  a  crosstabulation  of  two  elements. 

1.  The  Chi-Square  Test  for  Independence 

Let  the  observations  of  a  random  sample  of  size  n  be  classified  according  to  two 
criteria,  so  that  each  observation  is  associated  with  one  of  r  classes  of  criterion  1  and  one 
of  c  classes  of  criterion  2.  Let  be  the  number  of  observations  associated  with  class  i  of 
criterion  1  and  class  j  of  criterion  2.  Then  the  can  be  arranged  in  an  r  x  c  contingency 
table  as  defined  in  section  C. 

The  assumptions  being  made  are 

1.  The  sample  of  n  observations  is  a  random  sample,  i.e.,  each  observation  has  the  same 
probability  as  every  other  observation  of  being  classified  in  row  t  and  column  j , 
independently  of  the  other  observations. 

2.  Each  observation  may  be  classified  into  exactly  one  of  r  different  categories  according 
to  one  criterion  and  into  exactly  one  of  c  different  categories  according  to  the  second 
criterion.  [Ref.  5:  p.  155] 

Then  the  null  hypothesis  can  be  stated  as 

H0  :  The  event  “an  observation  is  in  row  i”  is  independent  of  the  event  “that  same 
observation  is  in  column  j  ”,  for  all  t  and  j . 
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against  the  alternative 


Hi  :  There  is  lack  of  independence,  i.e.,  an  association  exists  between  at  least  on« 
column  and  one  row. 

By  the  definition  of  independence  of  events,  the  hypotheses  may  be  stated  as 

follows 


Ho  :  Pij  =  Pi.p.j  for  all  i,j 

Hi  :  Pij  #  Pi.p.j  for  some  i,j 


where  p±j  is  the  probability  that  an  observation  is  in  row  i  and  column  j ,  and  pt  and  p.j 
are  the  marginal  probabilities  of  observations  in  row  i  and  column  j  respectively. 

The  most  common  test  statistic  for  this  hypothesis  is  given  by 

yfl  _  ^  ^2  (n»i  ~  €tj)2 


1=1  3=1 


€>j 


where  nyy  are  the  observed  frequencies  in  row  i  and  column  j  and  the  e,y  denote  the 
expected  frequencies  in  row  i  and  column  j  defined  by 


e 


v?  “ 


.n.j 

n 


Here  nt-.  and  n.y  are  the  row  and  column  marginals,  respectively,  and  n  the  total  number 
of  observations. 

As  n  — ►  oo,  X2  is  asymptotically  distributed  as  a  x2  random  variable  with 
(r  -  l)(c  -  1)  degrees  of  freedom  [Ref.  5:  p.  156],  Hence  the  decision  rule  is  to  reject  H0 
if  X 2  exceeds  the  1  —  a  quantile  of  a  x2  random  variable  with  (r  -  l)(c  —  1)  degrees  of 
freedom  where  “a  is  the  maximum  probability  of  rejecting  H0  when  H0  is  true”  [Ref.  5: 
p.  79].  Equivalently  the  minimum  probability  of  accepting  H0i  making  the  correct  decision, 
is  1  —  a.  The  quantity  a  is  usually  called  the  level  of  significance. 

The  value  a  =  a  such  that  X 2  equals  the  1  -  a  quantile  of  a  x2  distribution  is 
called  the  critical  value  or  p- value.  That  is,  “a  is  the  smallest  significance  level  at  which 
the  null  hypothesis  would  be  rejected  for  a  given  observation”.  [Ref.  5:  p.  81] 

However  it  is  important  to  keep  in  mind  that  X2  is  only  a  test  value  for  the 
null  hypothesis  and  not  a  measure  of  the  degree  of  dependence  or  independence.  Greater 
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values  of  X 2  do  not  necessarily  imply  greater  dependence.  For  a  discussion  of  an  adequate 
measurement  of  the  degree  of  dependence  see  Goodman  and  Kruskal  [Ref.  6]. 

2.  Residual  Analysis 

If  the  null  hypothesis  is  rejected,  i.e.,  if  the  test  statistic  X 2  exceeds  the  1  —  a 
quantile  of  the  corresponding  x2  distribution  the  question  arises  which  combinations  of  the 
two  variable  categories  contribute  to  this  decision.  The  standardized  residuals  of  observed 
frequencies,  defined  by 


z 


*  j  — 


ftjj  & xj 


y/*7j 


are  useful  in  this  regard  as  “large”  values  are  an  indicator  of  the  degree  of  contribution. 
Note  that  X2  is  equal  to  the  sum  over  all  t  and  j  of  zjj.  [Ref.  7:  p.  348]  UEDIT  uses 
the  built-in  shadowing  capability  to  highlight  two  categories  of  extremely  large  residuals  to 
help  in  their  visual  recognition. 


E.  AGGREGATION  OF  CATEGORIES 

An  area  of  ongoing  research  is  the  minimum  expected  frequency  that  should  occur  in 
a  contingency  table  for  the  asymptotic  distribution  theory  of  the  x2  test  statistic  to  be 
valid.  If  the  etJ  are  “too  small”  then  the  test  statistic  X2  is  not  well  approximated  by  a  x2 
distribution.  Cells  with  small  expectation  “are  less  informative  them  cells  with  expectation 
greater  than,  say,  3”.  If  etj  <  2  “the  lowest  count  of  0  is  not  improbably  low,  and  the  only 
way  for  the  count  to  differ  Significantly  *  from  eXJ  is  by  being  too  high”.  [Ref.  7:  p.  291] 
One  common  rule  is  that  no  cell  should  have  an  expected  frequency  less  them  1  and 
no  more  than  1/5  of  the  cells  should  have  an  expectation  less  than  5.  If  x2  has  only  1 
degree  of  freedom,  i.e.,  in  a  2  x  2  table,  no  cell  should  have  an  expectation  less  than  5  and 
the  total  number  of  observations  should  be  at  least  30.  [Ref  8:  p.  334] 

Another  rule  uses  the  average  expected  frequencies  rather  than  the  minimum  expec¬ 
tations.  The  average  expected  frequency  E ,  is  defined  as  the  ratio  of  the  sample  size  to  the 
number  of  cells,  i.e., 


E  = 


n 

rc 
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The  recommendations  are 


1.  If  a  =  .05  and  cells  are  equiprobable,  then  E  >  1. 

2.  If  a  =  .01  and  cells  are  equiprobable,  then  E  >  2. 

3.  If  the  cells  are  not  equiprobable  then  average  expectations  should  be  doubled,  i.e., 
E  >  2  for  a  =  .05,  and  E  >  4  for  a  =  .01.  [Ref.  9:  p.  758] 

If  these  conditions  are  not  met  groups  with  low  expectations  should  be  aggregated 
(pooled)  to  raise  the  accuracy  of  the  analysis  if  an  aggregation  is  feasible.  That  is,  rows 
or  columns  with  similar  context  are  merged  to  increase  the  cell  expectation.  In  most  cases 
aggregation  will  affect  the  critical  level  a  and  may  even  change  the  decision  whether  to 
reject  or  accept  the  null  hypothesis.  UEDIT  leaves  the  judgment  regarding  the  feasibility 
of  an  aggregation  and  the  validity  of  the  test  to  the  user,  but  allows  an  aggregation  of  any 
classes  of  a  variable  and  then  performs  the  necessary  recalculation  automatically.3 

F.  DRAFTSMAN’S  TABLES 

Contingency  tables  as  described  before  are  also  called  two-way  contingency  tables 
where  the  term  “two-way”  refers  to  the  number  of  dimensions  of  the  table  or  equivalently  to 
the  number  of  variables  crosstabulated.  An  extension  may  be  made  to  increase  the  number 
of  variables  to  three  or  more  which  leads  to  an  n- way  contingency  table  with  n  dimensions 
[Ref.  5:  p.  165].  For  example,  in  the  SBI  database  one  might  be  interested  whether  the 
variables  GENDER,  MARITAL  and  EDUCATION  are  independent.  This  would  result  in 
a  contingency  table  with  r  =  2  rows,  c  =  5  columns  and  6  =  5  blocks  and  a  test  statistic 
X2  with  a  summation  over  all  r  x  c  x  6  cells.  X2  is  then  tested  for  significance  using  the 
X2  distribution  with  (r  -  l)(c  -  1)(6  -  1)  degrees  of  freedom. 

However,  with  the  number  of  dimensions  the  difficulty  in  visualizing  the  associations 
and  interactions  between  variables  will  also  increase.  Therefore  this  method  is  not  used 
very  often  and  is  currently  not  implemented  in  UEDIT. 

A  more  useful  approach  is  to  crosstabulate  the  n  variables  of  interest  pairwise  and 
arrange  the  n(n  -  l)/2  contingency  tables  in  a  draftsman’s  table  [Ref.  10:  p.  136],  an  array 

3  Exact  tests  are  available  in  the  StatXact  package,  but  its  import  capability  is  limited  to  casefiles 
with  a  sample  size  of  maximal  200  and  to  2  x  2  contingency  tables. 
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of  tables  arranged  in  the  following  order 


V,  vs.  V2  Vi  vs.  V3  Vi 

V2vs.  V3  V2 

^3 


vs.  VA 

..  ^vs.V* 

vs.  V^  . , 

, .  V2  vs.  Vn 

vs.  Vi 

..  V3vs.  Vn 

Vn— i  vs.  Vr 

where  Vx  vs.  Vj  denotes  the  result  of  a  crosstabulation  of  variables  i  and  j .  Examples  are 
given  in  Appendix  D. 
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III.  CONSTRUCTION  OF  THE  SBI  DATABASE 


A.  BACKGROUND 

The  Director  of  Central  Intelligence  (DCI)  Personnel  Security  Working  Group  (PSWG) 
is  examining  the  investigative  requirements  of  the  DCI  Directive  1/14  with  a  large  scale 
study  of  the  Special  Background  Investigation  (SBI).  The  study  is  designed  to  evaluate  the 
productivity  of  investigative  sources  in  developing  the  necessary  information  to  determine 
eligibility  for  access  to  Sensitive  Compartment  Information  (SCI).  The  objectives  of  the 
study  are  to: 

1.  Determine  the  productivity  of  sources  of  information  in  personnel  security  investiga¬ 
tions. 

2.  Evaluate  the  length  of  coverage  needed  to  determine  with  reasonable  probability  that 
an  indication  of  significant  adverse  information  will  be  developed. 

It  is  recognized  that  when  significant  information  is  revealed,  an  inquiry  is  normally  ex¬ 
panded  to  completely  resolve  an  issue.  The  purpose  of  the  present  PSWG  study  is  to 
determine  which  sources  provide  the  first  indication  of  a  problem  and  the  minimum  period 
of  coverage  needed  to  reveal  a  problem. 

B.  DATABASE  FORMAT 

The  data  for  the  PSWG  study  is  recorded  by  adjudicators  on  machine-scannable,  case 
summary  forms  cifter  an  initial  determination  has  been  reached.  These  forms  are  then 
scanned,  and  the  information  is  converted  into  SAS  format  and  recorded  on  tape.  To  edit 
and  work  interactively  with  the  data  the  tape  contents  are  then  dumped  to  a  CMS  file  on 
the  mainframe  computer  of  the  Naval  Postgraduate  School. 

The  original  database  presently  consists  of  861  records,  one  for  each  issue  case.  The 
data  were  collected  during  the  first  six  months  of  1989.  Each  record  contains  166  fields 
of  information  pertaining  to  the  particular  issue  case.  The  first  13  fields  contain  the  case 
number  and  data  common  to  each  of  up  to  three  issues  which  are  coded  in  the  remaining 
153  record  fields.  The  record  format  is  fixed  but  with  variable  field  lengths. 
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This  data  file  was  then  transferred  to  a  PC  and  preprocessed  with  KEDIT  and  Persona] 
REXX4  with  the  purpose  of 

1.  Constructing  new  records  consisting  of  the  13  common  fields  and  one  issue  (51  fields) 
per  record.  The  new  database  has  now  1173  records  for  861  individuals,  with  64  fields 
each. 

2.  Reducing  the  amount  of  disk  storage  needed  by  converting  the  file  format  to  “comma 
delimited”,  i.e.,  fields  are  no  longer  padded  with  blanks  to  preserve  the  fixed  format 
but  are  delimited  with  commas  only. 

The  file  was  then  loaded  into  UEDIT  and  recoded  using  the  recoding  facility  (Shift-F8) 
provided  by  the  program.  Because  of  the  structure  of  the  summary  forms  and  the  automatic 
scanning  process  all  fields  in  the  original  database  are  numeric.  In  addition  some  of  the 
fields  were  coded  in  binary  form,  i.e.,  in  a  sequence  of  ones  (marked)  and  zeroes  (unmarked), 
whereas  most  other  fields  were  coded  in  decimal  form,  e.g.,  the  field  YEAR  OF  BIRTH. 
All  categorical  fields  were  recoded  to  obtain  their  original  label,  e.g.,  in  the  EDUCATION 
column 

1  Non-HS 

2  ->  GED 

3  — ►  High  school 

4  — ►  Some  college 

5  — *  College  degree 

6  — ►  Post-graduate 

Missing  data  (unknown  values)  were  consistently  coded  as  a  blank  field  which  is  internally 
stored  by  UEDIT  as  -32768  for  numeric  columns  as  a  default  value. 

To  facilitate  the  analysis,  two  databases  were  generated  consisting  of  the  common 
data  (861  records)  and  the  issue  data  (1173  records),  respectively,  with  the  case  numbers 
as  identifier  fields  in  both  files. 

The  common  data  consist  mostly  of  identification  fields  and  demographic  attributes.  A 
preliminary  analysis  of  these  demographic  variables  is  the  objective  of  the  following  chapter. 


4  KEDIT  is  a  full-screen  text  editor,  Personal  REXX  a  computer  language.  Both  are  highly 
compatible  to  IBM’s  XEDIT  and  REXX  respectively  which  are  available  on  the  Naval  Postgraduate 
School  mainframe  computer. 
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IV.  ANALYSIS  OF  THE  SBI  DATABASE 


Six  demographic  variables  are  included  in  the  database  of  Security  Background  Inves¬ 
tigation.  These  are 

1.  YEAR  OP  BIRTH 

2.  GENDER 

3.  MARITAL  STATUS 

4.  EDUCATION  (highest  education  level  of  the  subject) 

5.  JOB  CATEGORY  which  is  described  by 

(a)  Professional  —  project  managers,  scientists,  analysts,  military  officers,  etc. 

(b)  Technical  —  persons  involved  in  the  manufacture,  operation  or  maintenance  of 
equipment  and  military  enlisted  personnel 

(c)  Clerical  —  persons  involved  in  clerical  duties 

(d)  Service  —  charforce,  security  guards,  etc. 

6.  TYPE  OP  EMPLOYEE  (military,  federal  civilian  or  industrial  contractor) 

A.  FREQUENCY  COUNTS 

The  database  of  the  demographic  data  presently  consists  of  861  individuals  of  whom 
2/3  are  male,  48%  are  single  and  43%  are  married.  79%  are  between  18  and  40  years 
old.  Nearly  all  have  at  least  a  high  school  degree.  The  complete  results  are  tabulated  in 
Appendix  A. 

The  number  of  incomplete  data,  i.e.,  data  that  are  coded  as  unknown,  which  usually 
causes  problems  for  an  accurate  analysis  is  small  and  mostly  negligible,  as  Table  1  shows. 


TABLE  1.  PERCENTAGE  OF  MISSING  DATA 


Category 

Missing  data 

GENDER 

0.2  % 

YEAR  OF  BIRTH 

0.1  % 

MARITAL  STATUS 

1.0  % 

EDUCATION 

1.7  % 

JOB  CATEGORY 

3.9  % 

TYPE  OF  CATEGORY 

0.5  % 
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B.  CONTINGENCY  TABLES 


The  columns  of  demographic  data  were  pairwise  crosstabulated  using  the  “Draftsman’s 
Display”  option  of  UEDIT.  The  resulting  contingency  tables  are  listed  in  Appendix  B.  Note 
that  the  spreadsheet  computer  display  has  several  advantages  over  the  printed  display: 
observed  frequencies  and  residuals  are  displayed  in  different  colors,  significant  residuals  are 
highlighted  which  makes  comparisons  much  easier. 

All  tables  have  x2-statistics  between  29.6  and  530.5  with  p-values  less  than  0.0011 
contradicting  the  hypothesis  of  no  association  between  these  attributes.  Of  course,  many 
of  the  associations  found  are  obvious.  For  example,  only  few  individuals  of  age  20  and 
less  are  married  or  have  a  Postgraduate  degree.  Only  three  subjects  are  widowed  so  that 
no  significant  statements  for  them  can  be  made.  The  observations  made  are  summarized 
below. 

YEAR  OF  BIRTH  vs.  GENDER 

The  proportions  of  males  and  females  in  the  database  are  maintained  only  in  the  range 
of  ages  30-40.  Below  this  range  there  are  relatively  more  females,  above  this  range 
more  males. 

YEAR  OF  BIRTH  vs.  MARITAL  STATUS,  EDUCATION  and  JOB  CATEGORY 

As  mentioned  before  there  is  a  strong  tendency  for  younger  individuals  to  still  be 
single  and  have  not  yet  finished  their  education.  Therefore  additional  crosstabulations 
were  done  in  which  the  year  of  birth  was  conditioned  to  those  that  lie  in  the  range 
20-59.  These  results  were  quite  different  and  showed  no  strong  associations  between 
the  categories. 


Year  of  Birth  vs. 

p-level 

Marital  Status 

51.06 

.25 

Education 

46.18 

.77 

Job  Category 

33.09 

.61 

YEAR  OF  BIRTH  vs.  TYPE  OF  EMPLOYEE 

The  same  restricted  additional  crosstabulation  was  performed  for  YEAR  OF  BIRTH 
and  TYPE  OF  EMPLOYEE.  This  limited  the  amount  of  associations.  The  results 
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were  x2  =  31.04  and  a  p-level  of  .03.  But  a  relatively  large  number  of  contractors  in 
the  range  of  age  55-65  remains  noticeable. 

MARITAL  STATUS  vs.  GENDER 

The  number  of  married  females  in  the  database  is  relatively  low,  while  there  are  more 
married  men  than  the  expectation  under  the  assumption  of  independence. 

MARITAL  STATUS  vs.  JOB  CATEGORY 

This  table  mirrors  the  results  of  the  crosstabulations  of  YEAR  OF  BIRTH  vs.  MAR¬ 
ITAL  STATUS  and  JOB  CATEGORY.  For  example,  singles  are  usually  younger  than 
married  individuals  and  are  more  likely  to  fall  into  the  job  category  Technical. 

MARITAL  STATUS  vs.  TYPE  OF  EMPLOYEE 

The  most  noticable  positive  relationship  in  the  table  is  between  contractors  and  mar¬ 
ried  subjects,  while  there  are  relatively  more  single  federal  civilians  and  military  per¬ 
sonnel.  Also  the  rate  of  divorced  contractors  and  federal  civilians  is  higher  than  the 
rate  of  military  personnel. 

EDUCATION  vs.  GENDER 

Generally  the  education  level  of  females  tends  to  be  lower  than  of  males. 
EDUCATION  vs.  MARITAL  STATUS 

Weak  associations  can  be  observed  between  many  singles  with  high  school  degree 
and  married  subjects  with  postgraduate  degree  on  one  hand  and  few  singles  with 
postgraduate  degree  and  married  inviduals  with  high  school  degree  on  the  other  hand. 

EDUCATION  vs.  JOB  CATEGORY 

As  expected  there  are  strong  association  between  these  two  categories  depending  on 
the  prerequisites  for  the  different  job  categories.  This  resulted  in  a  x2 -statistic  of 
442.5. 

EDUCATION  vs.  TYPE  OF  EMPLOYEE 

Generally  the  education  level  of  contractors  and  federal  civilians  in  the  database  is 
higher  than  that  of  military  personnel.  This  may  be  because  the  age  is  correlated  with 
both  categories. 
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JOB  CATEGORY  vs.  GENDER 

A  very  large  number  of  females  is  involved  in  clerical  duties.  This  is  already  obvious 
by  looking  at  the  absolute  numbers. 

JOB  CATEGORY  vs.  TYPE  OF  EMPLOYEE 

Obviously  most  military  personnel  are  in  the  job  category  Technical  which  involves 
all  enlisted  personnel,  while  federal  civilians  are  mostly  in  the  other  three  categories. 
The  result  was  the  highest  x2  statistic  of  530.5. 

TYPE  OF  EMPLOYEE  vs.  GENDER 

Most  females  are  in  the  category  Federal  Civilian,  while  males  are  more  associated 
with  the  other  classes  Contractor  and  Military. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  RESULTS  OF  THE  ANALYSIS 

The  database  of  Security  Background  Investigation  with  its  861  x  64  fields  could  easily 
be  handled  with  UEDIT.  The  ability  to  investigate  character  and  numeric  data  in  one  matrix 
by  scrolling  across  the  worksheet  was  extremely  useful  in  enabling  the  investigation  to  see 
characteristics  of  the  data  at  a  glance.  Inconsistent  coding  schemes  were  spotted  at  once 
and  recoding  was  a  matter  of  seconds.  The  fear  that  the  speed  of  the  editing  and  the 
statistical  functions  would  be  unacceptable  due  to  the  interpretative  character  of  the  APL 
language  was  soon  dismissed. 

APL2,s  capability  to  handle  nested  vectors  and  matrices  as  a  unit  causes  the  loss  in 
speed  for  editing  the  SBI  database  compared  to  a  150  x  10  matrix  to  be  minimal,  except 
for  the  time  it  takes  to  load  a  database  into  the  system. 

The  preliminary  analysis  of  the  demographic  data  in  the  SBI  database  was  eased  by 
the  fact  that  the  percentage  of  missing  data  is  low.  This  raised  the  statistical  significance 
of  the  statements  considerably.  However,  one  has  always  to  bear  in  mind  that  correlation 
does  not  imply  causation.  This  was  demonstrated  when  several  strong  associations  lost 
their  significance  when  the  subjects  under  investigation  were  limited  to  age  30  and  older. 

B.  RECOMMENDATIONS  FOR  FURTHER  STUDIES 

The  frequency  counting,  crosstabulation  and  contingency  table  analysis  should  be  re¬ 
peated  when  the  SBI  database  is  complete.  The  methodology  will  remain  appropriate. 
Because  of  the  interrelatedness  among  all  variables  the  analysis  should  involve  n-way  com¬ 
parison.  When  GRAFSTAT/PC  is  released  by  IBM  these  investigations  should  be  extended 
by  graphical  analysis  to  further  improve  the  visual  effect  of  the  results. 

The  extra  facilities  offered  by  a  second  generation  APL  interpreter  like  APL2  make  the 
APL  language  even  more  attractive  for  statistical  analysis.  The  APL2  environment  is  ideal 
for  collecting  a  flexible  set  of  investigative  tools.  Therefore  UEDIT  has  been  designed  to  be 
open-ended.  New  functions  can  be  added  easily  either  by  implementing  them  as  an  integral 
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part  of  the  system — a  template  has  been  provided  to  achieve  this  task — or  by  copying  them 
into  the  workspace  in  addition  to  UEDIT  and  activate  them  from  UEDlTs  command  line. 
Possible  enhancements  in  connection  with  this  thesis  may  be: 

1.  Extending  the  analysis  to  n-way  contingency  tables  to  examine  multi-way  interactions 
between  three  or  more  variables. 

2.  Providing  methods  to  measure  the  degree  of  dependence  or  independence  in  contin¬ 
gency  tables. 

3.  Graphical  methods  for  the  analysis  of  contingency  tables.  This  could  be  done  by 
enhancing  the  interface  to  GRAFSTAT/PC  after  its  release.  The  interface  is  presently 
kept  very  rudimentary  as  no  exact  specifications  are  yet  available. 
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APPENDIX  A.  SBI  DATABASE  FREQUENCY  TABLES 


The  following  tables  show  the  frequency  tables  for  the  demographic  variables  in  the 
SBI  database.  Presently  there  are  861  cases  in  the  database.  Therefore  these  tabulations 
will  change  after  all  data  have  been  collected.  Unknown  attributes  are  indicated  by  a  dash. 

The  bar  charts  in  the  last  table  columns  are  presented  in  the  way  produced  by  UEDIT: 
If  all  absolute  frequencies  are  smaller  than  40  then  all  bar  lengths  (measured  in  display 
columns)  are  equal  to  those  frequencies.  Otherwise  the  longest  bar  is  40  columns  long  and 
the  others  have  lengths  proportional  to  it.  The  lengths  are  at  least  1  unless  there  are  no 
observations  in  a  class. 


YEAR  OF  BIRTH 


Freq. 

Rel. 

Cum. 

- 

1 

.00 

i 

□ 

20-29 

7 

.01 

8 

ffi 

30-34 

26 

.03 

34 

mm 

35-39 

19 

.02 

53 

rrm 

40-44 

46 

.05 

99 

rmurn 

45-49 

60 

.07 

159 

iiiiiiimii 

50-54 

85 

.10 

244 

mmmrmm 

55-59 

114 

.13 

358 

Miiiimiimimii  i 

60-64 

189 

.22 

547 

mmiiiiiiiiiiiiiiiiiiiiimmi 

65-69 

236 

.27 

783 

IIIIIIHIIIIIIIIIIIIIIIIIHIIIIIIIfTTTm 

70-72 

78 

.09 

861 

miniuiTTiTi 
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GENDER 


Freq 

Rel. 

Cum. 

- 

2 

.00 

2 

□ 

Female 

298 

.35 

300 

niiiiiiiTHiriiiiiim 

Male 

561 

.65 

861 

rm  1 1  ii  1 1 1 1 1 1 1 1  iimiiriiim  unmnu 

MARITAL  STATUS 


Freq. 

Rel. 

Cum. 

- 

9 

.01 

9 

0 

Single 

412 

.48 

421 

llllllllllllllinilllllirillllllITTTTTTTI 

Married 

374 

.43 

795 

II  III  1 1 II  Mill  II 1  INI  III  III  III  II  III  II 

Separated 

12 

.01 

807 

ra 

Divorced 

51 

.06 

858 

□ID 

Widowed 

3 

.00 

861 

□ 

EDUCATION 


Freq. 

Rel. 

Cum. 

- 

15 

.02 

15 

QD 

Non  HS 

8 

.01 

23 

□ 

GED 

8 

.01 

31 

□ 

Highschool 

261 

.30 

292 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  i  1 1 1 1 1 1 II 1 1 1 1 1 1  ITlTTm 

Some  college 

229 

.27 

521 

iiiiniiiiiiiiiiiiiiiiiimiiiiiinm 

College  degree 

239 

.28 

760 

iiiiniiiiiiiiiiiiiiiiiiiimmiirm 

Post-graduate 

101 

.12 

861 

iiiiiiimmim 
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JOB  CATEGORY 


Freq. 

Rel. 

Cum. 

- 

34 

.04 

34 

nui 

Clerical 

108 

.13 

142 

III . . 

Professional 

340 

.39 

482 

m  1 1 1  ii  1 1  ii  1 1 1 1 1  m  1 1 1 1 1 1  ii  . . . . . 

Service 

69 

.08 

551 

ITTTTTTTT1 

Technical 

310 

.36 

861 

TYPE  OF  EMPLOYEE 


Freq. 

Rel. 

Cum. 

- 

4 

.00 

4 

□ 

Contractor 

168 

.20 

172 

riTimiH 

mu  hid 

Federal  Civilian 

356 

.41 

528 

fTTTTTTTTT 

liiiiiiiiiiiiiiiiimiiiiiiiiii 

Military 

333 

.39 

861 

minim 

mmmmmmmmmii 
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APPENDIX  B.  SBI  DATABASE  CONTINGENCY  TABLES 


The  following  tables  show  the  results  of  a  pairwise  crosstabulation  of  the  demographic 
data  in  the  SBI  database.  The  15  tables  were  created  using  the  “Draftsman’s  Display” 
option  of  UEDIT.  The  first  entry  in  each  field  shows  the  obeserved  frequency,  the  second 
field  shows  the  standard  residual  for  each  pair  of  attributes.  The  spreadsheet  screen  display 
of  UEDIT  shows  observed  frequencies  and  residuals  in  different  colors,  significant  residuals 
are  highlighted  which  makes  comparisons  much  easier.  Clearly  this  highlighting  cannot  be 
shown  on  a  black  and  white  page.  However  it  is  possible  to  display  only  the  highlighted 
residuals  by  pressing  (Shift-S)  (“Shadow”).  An  example  of  this  reduction  of  the  YEAR  OF 
BIRTH  vs.  GENDER  crosstabulation  is  given  below. 
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YEAR  OF  BIRTH  -  GENDER 


- 

Female 

Male 

total 

- 

.00 

.00 

1.00 

1.00 

-.05 

-.59 

.43 

.00 

20-29 

.00 

1.00 

6.00 

7.00 

-.13 

-.91 

.67 

.01 

30-34 

.00 

10.00 

16.00 

26.00 

-.25 

.33 

-.23 

.03 

35-39 

1.00 

1.00 

17.00 

19.00 

4.55 

-2.17 

1.31 

.02 

40-44 

.00 

9.00 

37.00 

46.00 

-.33 

-1.73 

1.28 

.05 

45-49 

.00 

14.00 

46.00 

60.00 

-.37 

-1.48 

1.10 

.07 

50-54 

.00 

30.00 

55,00 

85.00 

-.44 

.11 

-.05 

.10 

55-59 

1.00 

39.00 

74.00 

114.00 

1.43 

-.07 

-.03 

.13 

60-64 

.00 

76.00 

113.00 

189.00 

-.66 

1.31 

-.91 

.22 

65-69 

.00 

84.00 

152.00 

236  00 

-.74 

.26 

-.14 

.27 

70-72 

.00 

34  00 

44.00 

78.00 

-.43 

1.35 

-.96 

.09 

total 

2.00 

298.00 

561.00 

861.00 

column  % 

.00 

.35 

.65 

d.o.f 

20.0000 

Chi-sq 

46  3417 

signif 

.0007 

YEAR  OF  BIRTH  -  GENDER  (shadowed) 


- 

Female 

Male 

total 

- 

-.05 

-.59 

.43 

.00 

20-29 

-.13 

-.91 

.67 

.01 

30-34 

-.25 

.33 

-.23 

.03 

35-39 

4.55 

-2.17 

1.31 

.02 

40-44 

-.33 

-1.73 

1.28 

.05 

45-49 

-.37 

-1.48 

1.10 

.07 

50-54 

-.44 

.11 

-.05 

.10 

55-59 

1.43 

-.07 

-.03 

.13 

60-64 

-.66 

1.31 

-.91 

.22 

65-69 

-.74 

.26 

-.14 

.27 

70-72 

-.43 

1.35 

-.96 

09 

column  % 

00 

.35 

.65 
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YEAR  OF  BIRTH  -  MARITAL  STATUS 


- 

Single 

Married 

Separated 

Divorced 

Widowed 

total 

- 

.00 

1.00 

.00 

.00 

.00 

.00 

1.00 

-.10 

.75 

-.66 

-.12 

-.24 

-.06 

.00 

20-29 

.00 

.00 

5.00 

1.00 

1.00 

.00 

7.00 

-.27 

-1.83 

1.12 

2.89 

.91 

-.16 

.01 

30-34 

.00 

.00 

20.00 

.00 

6.00 

.00 

26.00 

-.52 

-3.53 

2.59 

-.60 

3.59 

-.30 

.03 

35-39 

.00 

3.00 

13.00 

.00 

2.00 

1.00 

19  00 

-.45 

-2.02 

1.65 

-.51 

.82 

3.63 

.02 

40-44 

00 

3.00 

37.00 

1  00 

5  00 

.00 

46.00 

-.69 

-4.05 

3.81 

45 

1.38 

-.40 

.05 

45-49 

2.00 

5.00 

45.00 

2.00 

6.00 

.00 

60.00 

1.73 

-4.43 

3.71 

1.27 

1.30 

-.46 

.07 

50-54 

1.00 

11  00 

62.00 

2.00 

9.00 

.00 

85.00 

.12 

-4.65 

4.13 

.75 

1.77 

-.54 

10 

55-59 

1.00 

34.00 

70.00 

.00 

8.00 

1.00 

114.00 

-.18 

-2.78 

2.91 

-1.26 

.48 

.96 

.13 

60-64 

00 

91.00 

83.00 

4.00 

11.00 

.00 

189.00 

-141 

.06 

.10 

.84 

-.06 

-.81 

.22 

65-69 

3.00 

190  00 

37.00 

2.00 

3.00 

1.00 

236.00 

34 

7.25 

-6.47 

-.71 

-2  94 

.20 

.27 

70-72 

2.00 

74.00 

2.00 

.00 

.00 

.00 

78.00 

1.31 

6  00 

-5.48 

-1.04 

-2.15 

-.52 

.09 

total 

9.00 

412.00 

374.00 

12.00 

51.00 

3.00 

861  00 

column  % 

.01 

.48 

.43 

.01 

.06 

.00 

d.o.f. 

50.0000 

Chi-sq 

384.9084 

signif 

.0000 
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YEAR  OF  BIRTH  -  EDUCATION 


Non  HS 

GED 

Highsch. 

SomeColl. 

CollDeg. 

PostGrad. 

total 

- 

.00 

.00 

.00 

.00 

1.00 

.00 

.00 

1.00 

-.13 

-.10 

-.10 

-.55 

1.42 

-.53 

-.34 

.00 

20-29 

.00 

.00 

.00 

2.00 

1.00 

1.00 

3.00 

7.00 

-.35 

-.26 

-.26 

-.08 

-.63 

-.68 

2.40 

.01 

30-34 

2.00 

1  00 

.00 

7.00 

5.00 

6.00 

5.00 

26  00 

2.30 

1.54 

-.49 

-.31 

-.73 

-.45 

1.12 

.03 

35-39 

2.00 

.00 

.00 

4.00 

4.00 

6.00 

3  00 

19.00 

2.90 

-.42 

-.42 

-.73 

-.47 

.32 

.52 

.02 

40-44 

.00 

.00 

1.00 

10.00 

11.00 

14.00 

10.00 

46.00 

-.90 

-.65 

.88 

-1.06 

-.35 

.34 

1.98 

.05 

45-49 

2.00 

1.00 

.00 

15.00 

12.00 

16.00 

14.00 

60  00 

.93 

.59 

-.75 

-.75 

-.99 

-.16 

2.62 

07 

50-54 

3.00 

00 

.00 

16.00 

25.00 

27. CO 

14.00 

85.00 

1.25 

-.89 

-.89 

-1.92 

.50 

.70 

1.28 

.10 

55-59 

3.00 

.00 

3.00 

18.00 

29.00 

33.00 

28.00 

114.00 

.72 

-1.03 

1.89 

-2.82 

-.24 

.24 

4.00 

.13 

60-64 

2.00 

2.00 

2.00 

45.00 

46.00 

68  00 

24.00 

189.00 

-.71 

.18 

.18 

-1.62 

-.60 

2.15 

.39 

.22 

65-69 

.00 

4.00 

.00 

76.00 

88.00 

68.00 

.00 

236.00 

-2.03 

1.22 

-1.48 

53 

3.18 

.31 

-5.26 

.27 

70-72 

1.00 

.00 

2.00 

68.00 

7.00 

.00 

.00 

78.00 

-.31 

-.85 

1.50 

9.12 

-3.02 

-4.65 

-3.02 

.09 

total 

15.00 

8.00 

8  00 

261.00 

229.00 

239.00 

101.00 

861.00 

column  % 

.02 

.01 

.01 

.30 

.27 

.28 

.12 

d.o.f. 

60.0000 

Chi-sq 

265.9455 

signif 

.0000 
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YEAR  OF  BIRTH  -  JOB  CATEGORY 


- 

Clerical 

Profess. 

Service 

Technical 

total 

- 

1.00 

.00 

.00 

.00 

.00 

1.00 

4.83 

-.35 

-.63 

-.28 

-.60 

.00 

20-29 

.00 

.00 

5  00 

.00 

2.00 

7.00 

-.53 

-.94 

1.34 

-.75 

-.33 

.01 

30-34 

2.00 

3.00 

10.00 

4.00 

7.00 

26.00 

.96 

-  14 

-.08 

1.33 

-.77 

.03 

35-39 

2  00 

1.00 

12.00 

1.00 

3.00 

19.00 

1.44 

-.90 

1.64 

-.42 

-1.47 

.02 

40-44 

3.00 

8.00 

28.00 

2.00 

5.00 

46.00 

88 

.93 

2.31 

-.88 

-2.84 

.05 

45-49 

5.00 

5.00 

33.00 

6.00 

11.00 

60.00 

1.71 

-.92 

1.91 

.54 

-2.28 

.07 

50-54 

2.00 

13.00 

43.00 

6.00 

21.00 

85.00 

-.74 

.72 

1.63 

-.31 

-1.74 

.10 

55-59 

8  00 

8.00 

60.00 

10.00 

28,00 

114.00 

1.65 

-1.67 

2.23 

.29 

-2.04 

.13 

60-64 

7.00 

32.00 

76.00 

17  00 

57.00 

189.00 

-.17 

1.70 

16 

48 

-1.34 

.22 

65-69 

3.00 

26.00 

66.00 

16.00 

125.00 

236.00 

-2.07 

-.66 

-2.82 

-.67 

4,34 

.27 

70-72 

1.00 

12.00 

7.00 

7.00 

51  00 

78.00 

-1.19 

.71 

-4.29 

.30 

4.32 

.09 

total 

34.00 

108.00 

340.00 

69.00 

310.00 

861.00 

column  % 

.04 

.13 

.39 

.08 

.36 

d  o  f 

40.0000 

Chi-sq 

165.4638 

signif 

.0000 
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YEAR  OF  BIRTH  -  EMPLOYEE  TYPE 


- 

Contractor 

FedCivilian 

Military 

total 

- 

.00 

1.00 

.00 

.00 

1.00 

-.07 

1.82 

-.64 

-.62 

.00 

20-29 

.00 

5.00 

2.00 

.00 

7.00 

-.18 

3.11 

-.53 

-1.65 

.01 

30-34 

.00 

17.00 

9.00 

.00 

26.00 

-.35 

5.30 

-.53 

-3.17 

.03 

35-39 

.00 

9.00 

7.00 

3.00 

19.00 

-.30 

2.75 

-.31 

-1.60 

.02 

40-44 

.00 

19.00 

19.00 

8.00 

46.00 

-.46 

3.35 

.00 

-2.32 

.05 

45-49 

.00 

19.00 

22.00 

19.00 

60.00 

-.53 

2.13 

-  56 

-.87 

.07 

50-54 

.00 

27.00 

34.00 

24,00 

85,00 

-.63 

2.56 

-.19 

-1.55 

.10 

55-59 

1.00 

23.00 

48  00 

42.00 

114.00 

65 

.16 

.13 

-.31 

.13 

60-64 

3.00 

38.00 

87  00 

61.00 

189.00 

2.26 

.18 

1.00 

-1.41 

.22 

65-69 

.00 

9.00 

109.00 

118.00 

236.00 

-1.05 

-5.46 

1.16 

2.80 

.27 

70-72 

.00 

1.00 

19.00 

58.00 

78.00 

-.60 

-3.64 

-2.33 

5.07 

.09 

total 

4.00 

168.00 

356.00 

333.00 

861.00 

column  % 

.00 

.20 

.41 

.39 

d.o.f. 

30.0000 

Chi-sq 

191.2516 

signif 

0000 
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MARITAL  STATUS  -  GENDER 


- 

Female 

Male 

total 

- 

.00 

1.00 

8,00 

9.00 

- 

-.14 

-1.20 

.88 

.01 

Single 

.00 

-.98 

156.00 

1.12 

256.00 

-.76 

412.00 

,48 

Married 

1.00 

.14 

107.00 

-1.97 

266,00 

1,43 

374,00 

.43 

Separated 

.00 

-.17 

6.00 

.91 

6.00 

-.65 

12.00 

.01 

Divorced 

1.00 

2.56 

25.00 

1.75 

25.00 

-1.43 

51.00 

.06 

Widowed 

.00 

-.08 

3.00 

1.93 

.00 

-1.40 

3,00 

.00 

total 

column  % 

d  o.f. 

Chi-sq 

signif 

2.00 

.00 

10.0000 

29.5805 

.0010 

298.00 

.35 

561.00 

.65 

861.00 

MARITAL  STATUS  -  JOB  CATEGORY 


- 

Clerical 

Profess 

Service 

Technical 

total 

3.00 

4.44 

.00 

-1.06 

1  00 
-1.35 

.00 
-  85 

5.00 

.98 

9.00 

01 

Single 

10.00 

-1.55 

47.00 

-.65 

152.00 

-.84 

33.00 

.00 

170.00 

1.78 

412.00 

48 

Married 

20,00 

1.36 

43.00 

-.57 

170.00 

1.84 

27.00 

-.54 

114.00 
-1  78 

374.00 

43 

Separated 

.00 

-69 

2.00 

.40 

2.00 

-1.26 

3.00 

2.08 

5.00 

.33 

12  00 
01 

Divorced 

1  00 
-.71 

14.00 

3.01 

15.00 

-1.15 

6.00 

.95 

15  00 
-.78 

51,00 

.06 

Widowed 

.00 

-.34 

2.00 

2  65 

.00 

-1.09 

00 

-.49 

LOO 

-.08 

3.00 

00 

total 

column  % 

34.00 

.04 

108  00 
.13 

340.00 

.39 

69.00 

.08 

310,00 

.36 

861  00 

d.o  f. 

Chi-sq 

signif 

20.0000 

67.6096 

.0000 
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MARITAL  STATUS  -  EMPLOYEE  TYPE 


- 

Contractor 

FedCivilian 

Military 

total 

- 

.00 

.00 

.00 

9.00 

9.00 

-.20 

-1.33 

-1.93 

2.96 

.01 

Single 

2.00 

35.00 

197.00 

178.00 

412.00 

.06 

-5.06 

2.04 

1.48 

.48 

Married 

2.00 

117.00 

124.00 

131.00 

374.00 

.20 

5.15 

-2.46 

-1.13 

.43 

Separated 

.00 

2.00 

6.00 

4.00 

12.00 

-.24 

-.22 

.47 

-.30 

.01 

Divorced 

.00 

14.00 

27.00 

10.00 

51.00 

-.49 

1.28 

1.29 

-2.19 

.06 

Widowed 

.00 

.00 

2  00 

1.00 

3.00 

-.12 

-.77 

68 

-.15 

.00 

total 

4.00 

168.00 

356.00 

333.00 

861.00 

column  % 

.00 

.20 

.41 

.39 

d.o.f. 

15.0000 

Chi-sq 

90.0469 

signif 

.0000 

EDUCATION  -  GENDER 


- 

Female 

Male 

total 

- 

.00 

2.00 

13.00 

15.00 

-.19 

-1.40 

1.03 

.02 

Non  HS 

.00 

4.00 

4  00 

8  00 

-.14 

.74 

-.53 

.01 

GED 

.00 

3.00 

5.00 

8.00 

-.14 

.14 

-.09 

.01 

Highschool 

.00 

115.00 

146.00 

261.00 

-.78 

2.60 

-1.84 

.30 

Some  College 

1.00 

85.00 

143.00 

229.00 

.64 

.64 

-.51 

.27 

CollDegree 

.00 

70.00 

169.00 

239.00 

-.75 

-1.40 

1.06 

.28 

PostGraduate 

1.00 

19.00 

81.00 

101.00 

1.58 

-2.70 

1.87 

.12 

total 

2.00 

298.00 

561.00 

861.00 

column  % 

.00 

.35 

.65 

d.o.f. 

12.0000 

Chi-sq 

32.7184 

signif 

0011 
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EDUCATION  -  MARITAL  STATUS 


- 

Single 

Married 

Separated  Divorced 

Widowed 

total 

- 

4.00 

1.00 

8.00 

.00 

2.00 

.00 

15.00 

9.71 

-2.31 

.58 

-.46 

1.18 

-.23 

.02 

Non  HS 

.00 

3.00 

4.00 

1.00 

.00 

.00 

8.00 

-.29 

-.42 

.28 

2.66 

-.69 

-.17 

.01 

GED 

.00 

3.00 

4.00 

1.00 

.00 

,00 

8,00 

-.29 

-.42 

.28 

2.66 

-.69 

-.17 

.01 

Highschool 

2.00 

147.00 

84.00 

7.00 

18.00 

3.00 

261.00 

-.44 

1.98 

-2.76 

1.76 

.65 

2.19 

.30 

Some  College 

2.00 

105.00 

108.00 

.00 

14.00 

00 

229.00 

-.25 

-.44 

.85 

-1.79 

.12 

-.89 

.27 

CollDegree 

1.00 

120  00 

106.00 

2.00 

10.00 

00 

239.00 

-  95 

.53 

.21 

-.73 

-1.10 

-  91 

.28 

PostGraduate 

00 

33.00 

60.00 

1.00 

7.00 

.00 

101.00 

-1.03 

-2.21 

2.43 

-.34 

.42 

-  59 

.12 

total 

9.00 

412.00 

374.00 

12,00 

51.00 

3.00 

861.00 

column  % 

.01 

.48 

.43 

.01 

.06 

00 

d  o.f. 

30.0000 

Chi-sq 

158.6933 

sign  if 

.0000 
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EDUCATION  -  JOB  CATEGORY 


- 

Clerical 

Profess. 

Service 

Technical 

total 

- 

4.00 

.00 

4.00 

.00 

7.00 

15.00 

4  43 

-1.37 

-.79 

-1.10 

.69 

.02 

Non  HS 

.00 

.00 

.00 

2.00 

6.00 

8.00 

-.56 

-1.00 

-1.78 

1.70 

1.84 

.01 

GED 

.00 

1.00 

.00 

1.00 

6.00 

8.00 

-.56 

.00 

-1.78 

.45 

1.84 

.01 

Highschool 

8,00 

49.00 

16.00 

33  00 

155.00 

261.00 

-.72 

2.84 

-8.58 

2  64 

6.30 

.30 

Some  College 

8.00 

44.00 

51.00 

19.00 

107.00 

229.00 

-.35 

2.85 

-4.15 

.15 

2.70 

.27 

CollDegree 

9.00 

12.00 

179.00 

12.00 

27.00 

239.00 

-.14 

-3.28 

8.71 

-1.63 

-6  37 

.28 

PostGraduate 

5.00 

2.00 

90.00 

2.00 

2.00 

101.00 

.51 

-3.00 

7  94 

-2.14 

-5  70 

.12 

total 

34  00 

108.00 

340.00 

69.00 

310.00 

861.00 

column  % 

.04 

.13 

.39 

.08 

36 

d.o  f 

24  0000 

Chi-sq 

442.2512 

signif 

.0000 
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EDUCATION  -  EMPLOYEE  TYPE 


- 

Contractor 

FedCivilian 

Military 

total 

- 

.00 

8.00 

1.00 

6.00 

15.00 

-.26 

2.97 

-2.09 

08 

.02 

Non  HS 

.00 

1.00 

1.00 

6.00 

8.00 

-.19 

-.45 

-1.27 

1.65 

.01 

GED 

.00 

.00 

3.00 

5.00 

8.00 

-.19 

-1.25 

-.17 

1.08 

.01 

Highschool 

1.00 

31.00 

91.00 

138.00 

261.00 

-  19 

-2.79 

-1.63 

3.69 

.30 

Some  College 

.00 

36.00 

95.00 

98  00 

229.00 

-1.03 

-1.30 

.03 

1.00 

.27 

CollDegree 

3  00 

54.00 

115  00 

67.00 

239.00 

1.79 

1.08 

1.63 

-2.65 

.28 

PostGraduate 

.00 

38.00 

50.00 

13.00 

101.00 

-.69 

4.12 

1  27 

-4.17 

.12 

total 

4,00 

168.00 

356.00 

333  00 

861.00 

column  % 

.00 

.20 

.41 

.39 

d.o.f. 

18  0000 

Chi-sq 

98.9490 

signif 

.0000 

JOB  CATEGORY  -  GENDER 


- 

Female 

Male 

total 

— 

.00 

-.28 

8  00 
-1.10 

26.00 

82 

34.00 

.04 

Clerical 

.00 

-.50 

95.00 

9.42 

13.00 

-6.84 

108.00 

.13 

Professional 

2.00 

1.36 

77.00 

-3.75 

261.00 

2  65 

340  00 
.39 

Service 

.00 

-.40 

22.00 

-.39 

47.00 

.30 

69.00 

,08 

Technical 

.00 

-.85 

96.00 

-1.09 

214.00 

.85 

310.00 

36 

total 

column  % 

2.00 

.00 

298.00 

.35 

561.00 

.65 

861.00 

d.o  f. 

Chi-sq 

signif 

8.0000 

163.7666 

.0000 
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JOB  CATEGORY  -  EMPLOYEE  TYPE 


- 

Contractor 

FedCivilian 

Military 

total 

- 

1.00 

24.00 

4.00 

5.00 

34.00 

2.12 

6.74 

-2.68 

-2.25 

.04 

Clerical 

.00 

4.00 

103  00 

1.00 

108.00 

-.71 

-3.72 

8.73 

-6.31 

.13 

Professional 

2.00 

96.00 

172.00 

70.00 

340.00 

.33 

3.64 

2.65 

-5.36 

.39 

Service 

.00 

5.00 

57.00 

7.00 

69.00 

-.57 

-2.31 

5.33 

-3.81 

.08 

Technical 

1.00 

39.00 

20.00 

250.00 

310.00 

-.37 

-2.76 

-9.55 

11.88 

.36 

total 

4.00 

168.00 

356.00 

333.00 

861.00 

column  % 

.00 

.20 

.41 

.39 

d.o.f. 

12.0000 

Chi-sq 

530.5306 

sign  if 

.0000 

EMPLOYEE  TYPE  -  GENDER 


- 

Female 

Male 

total 

— 

.00 

-.10 

1.00 

-.33 

3  00 
.24 

4.00 

.00 

Contractor 

.00 

-.62 

28.00 

-3.95 

140.00 

2.92 

168.00 

.20 

FedCivilian 

2.00 

1.29 

181.00 

5.21 

173.00 

-3.87 

356.00 

.41 

Military 

.00 

-.88 

88.00 

-2.54 

245.00 

1.90 

333.00 

.39 

total 

column  % 

2.00 

.00 

298.00 

.35 

561.00 

.65 

861.00 

d  o.f. 

Chi-sq 

signif 

6.0000 

79.3027 

.0000 

34 


APPENDIX  C.  UEDIT  USER’S  MANUAL 


A.  SYSTEM  REQUIREMENTS 

UEDIT  is  a  workspace  for  IBM’s  APL2/PC  which  will  run  on  any  IBM-compatible 
microcomputer  with  at  least  512  KB  RAM.  However,  due  to  the  memory  limitations  of 
DOS  and  the  size  of  UEDIT  a  database  should  not  contain  more  than  approximately  1000 
fields  on  a  machine  with  full  640  KB  RAM.  The  maximum  which  can  be  processed  depends 
on  the  contents  of  the  fields.  Therefore  it  is  recommended  for  moderately  large  or  large 
databases  that  one  run  the  program  on  an  80386/80387  computer  under  APL2/32.  This 
APL2  interpreter  utilizes  all  available  memory  in  the  machine  up  to  16  MB. 

The  program  will  operate  with  almost  any  monochrome  or  color  video  adapter  with  an 
appropriate  monitor.  UEDIT  supports  the  EGA  43-line  mode  and  the  VGA  50-line  mode.  To 
print  matrices  a  printer  supported  by  APL2  is  required.  A  special  Auxiliary  Processor  (AP 
81)  which  enhances  the  support  of  printers  compatible  with  the  Hewlett  Packard  LaserJet 
is  provided  with  UEDIT,  together  with  two  soft  fonts. 

The  program  was  written  using  version  1.02  of  APL2/32  on  an  80386  based  computer 
with  4  MB  of  RAM,  an  EGA  video  adapter  and  monitor  and  a  Hewlett  Packard  LaserJet 
II  printer. 

B.  PROGRAM  AVAILABILITY 

A  copy  of  this  workspace  is  available  from  the  author  or  Professor  Peter  A.  W.  Lewis 
at  the  address  given  in  the  Initial  Distribution  List.  Please  send  a  5  V4  inch  or  3  72  inch 
IBM-compatible  formatted  disk. 

C.  GETTING  STARTED 

Before  you  start  APL2  you  should  create  a  subdirectory  to  hold  data  files  created  by 
UEDIT,  for  example  with  the  DOS  command 

MD  C:\APL2\UEDIT 
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This  is  not  absolutely  necessary  as  all  files  saved  by  UEDIT  can  be  recognized  by  their  file 
extension  .UED.  However,  it  is  recommended  that  you  keep  the  APL2  program  files  and  the 
data  files  in  separate  directories. 

Then  start  the  APL2  interpreter  with  the  Auxiliary  Processors  AP2  (Non-APL  pro¬ 
gram  interface),  AP80  or  AP81  (Printer  control),  AP124  (Pull-screen  display  management), 
AP210  (DOS  file  management)  and  AP440  (Sound  generator)  and  load  UEDIT.  You  may 
use  a  batch  file  containing  the  commands 

APL2F0NT 

APL232  AP2  AP81  AP124  AP210  AP440  )L0AD  UEDIT 
APL2F0NT  /T 

where  APL2FONT  loads/unloads  the  APL2  video  character  set. 

When  you  have  loaded  UEDIT  for  the  first  time  you  should  inspect  certain  global 
variables  which  contain  default  values  that  may  have  to  be  configured  for  your  needs.  Do 
not  forget  to  subsequently  save  the  workspace  with  the  )SAVE  command  to  set  the  new 
defaults  permanently.  All  of  these  variables  can  also  be  changed  temporarily  from  inside 
the  UEDIT  environment.  The  following  subsections  describe  the  variables. 

1.  PATH 

The  variable  PATH  contains  the  default  directory  path  to  UEDIT’s  data  directory. 
Use  an  assignment  like 

PATH*-'  C:\APL2\DATA\' 

to  set  the  path  to  your  needs.  Note  that  the  path  assignment  must  be  finished  with 
a  backslash.  All  spreadsheets  created  in  UEDIT  and  saved  with  (F2)  or  (Shift-F2)  (see 
page  43)  will  be  saved  in  this  directory  with  a  file  extension  “.UED”. 

2.  MISSAN 

To  display  a  “missing  numeric  value”  (unknown  attribute)  as  a  blank  field  it  is 
necessary  to  assign  a  special  numeric  value  to  the  appropriate  field  which  is  unlikely  to 
occur  in  a  database.  By  default  UEDIT  uses  —32768.  To  change  this  value  assign  a  new 
value  to  MISS^Ny  e.g., 

tfISSAtff--99999 

This  can  also  be  done  with  UEDIT's  function  (Ctrl-F9)  (see  page  48). 
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3.  PRINT 

The  variable  PRINT  is  a  7-element  vector  containing  default  parameters  for  print¬ 
outs  of  matrices.  See  page  54  for  a  detailed  discussion  of  these  values. 

4.  DATE 

Dates  are  stored  as  number  of  days  since  February  29,  0000,  and  displayed  in  the 
form  MM-DD-YYYY  by  default.  The  display  order  can  be  changed  by  changing  the  global 
variable  DATE  which  contains  a  3-element  vector  where  YYYY  corresponds  to  1,  MM  to  2,  DD 
to  3.  Thus  the  default  value  of  DATE  is  2  3  1.  To  change  to  a  European  style  date  display 
DD-MM-YYY  you  would  assign 
DATE*- 3  2  1 

D.  RUNNING  UEDIT 

To  edit  an  APL2  array  MATRIX  start  your  UEDIT  session  with  the  command 
UEDIT  ' MATRIX ' 

UEDIT  then  performs  the  following  steps 

1.  If  a  file  MATRIX. UED  exists  in  the  data  directory  UEDIT  reads  the  matrix  and  its 
parameters  from  this  file. 

2.  Otherwise,  if  an  array  MATRIX  exists  in  the  active  workspace  UEDIT  starts  the  session 
with  this  matrix,  creating  new  format  and  attribute  parameters. 

3.  Otherwise  UEDIT  creates  a  new  array  MATRIX  and  prompts  for  a  vector  of  column 
formats  (see  below). 

You  can  start  a  program  with 

UEDIT  '  1 

In  this  case  the  program  goes  immediately  to  the  File  Operations  menu  (see  page  44)  to 
allow  the  import  of  a  comma  delimited  or  formatted  DOS  file. 
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E.  COLUMN  FORMATS 


The  following  codes  are  valid  for  defining  new  columns  or  changing  column  types. 

A  Standard  APL  numeric  format 

Nx  Numeric  with  x  decimals 

Ex  Scientific  format;  the  mantissa  is  displayed  with  x  decimals 

C  Character  format 

D  Date  format 

All  column  widths  are  set  dynamically  depending  on  the  largest  field  in  each  column.  Note 

also  that  the  number  of  decimals  is  only  significant  for  screen  and  printer  output.  Internally 
all  numbers  are  stored  at  their  full  APL2  accuracy. 

For  example,  to  create  a  new  matrix  which  will  consist  of  the  columns  “Name”,  “Day 
of  Birth”,  “Years  of  Service”,  “Salaries”  you  would  respond  to  the  prompt  for  new  column 
formats  with 

C,D,A,N2 

Note  that  the  elements  are  separated  by  commas. 

UEDIT  always  displays  the  current  formats  below  the  matrix  columns.  An  identifier  C, 
N  or  D  representing  character,  numeric  or  date  data,  respectively,  is  followed  by  the  total 
column  width.  If  a  numeric  column  has  a  fixed  decimal  format,  a  period  with  the  number 
of  decimals  is  added.  Thus  for  the  example  above  the  display  may  show 

C6  DQ  N2  N1 . 2 

F.  MOVING  AROUND 

When  you  edit  a  matrix  for  the  first  time  the  cursor  will  be  located  in  the  first  field  of 
the  matrix,  i.e.,  in  the  upper  left  corner.  The  cursor  position  is  always  one  complete  field 
indicated  by  an  inverse  video  display.  When  you  save  your  work  the  cursor  position  is  also 
saved  so  that  you  can  resume  editing  at  the  position  where  you  stopped. 

To  move  the  cursor  and  the  editor  window  around,  several  key  combinations  are  avail¬ 
able: 

1.  The  cursor  keys  (< - ►!!)  move  the  cursor  one  field  into  the  appropriate  direction  as 

long  as  the  matrix  borders  are  not  yet  reached.  If  necessary  the  editor  window  will 
scroll  into  the  opposite  direction  to  show  the  new  active  field. 
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2.  To  scroll  the  matrix  by  one  field  within  the  editor  window  use  {Ctrl-  <— )  and  (Ctrl-  — ► ) 
for  horizontal  moves  or  (Ctrl-PgUp)  and  (Ctrl-PgDn)  for  vertical  moves. 

3.  To  scroll  the  matrix  up  or  down  one  full  window  at  a  time  use  the  (PgUp)  and  (PgDn) 
keys.  To  scroll  one  window  to  the  left  and  right  use  (Tab)  and  (Shift-Tab). 

4.  To  position  the  cursor  on  the  matrix  edges  press  (Home)  for  the  first  and  (End)  for 
the  last  column,  (Ctrl-Home)  and  (Ctrl-End)  for  the  first  and  last  row,  respectively. 

5.  If  you  want  to  locate  the  cursor  in  a  specific  field  hit  (Ctrl-L).  UEDIT  will  prompt 
you  for  the  row  and  column  number  and  position  the  cursor  in  that  field  scrolling  the 
window  if  necessary. 

Reminders  of  these  key  combinations  are  also  available  on  UEDIT’s  on-line  help  screens. 

G.  DATA  INPUT  AND  MODIFICATION  OF  DATA  USING  APL2 
COMMANDS 

The  default  keyboard  layout  is  “APL  mode”  which  makes  severed  ASCII  characters 
unaccessible  in  the  usual  way.  To  switch  the  layout  to  the  normal  “ASCII  mode”  (typewriter 
keyboard)  hit  (Ctrl-Backspace)  or  (Alt-Backspace).  These  key  combinations  are  toggles, 
i.e.,  they  take  you  back  and  forth  between  the  two  modes  every  time  you  hit  them. 

When  you  want  to  enter  a  value  for  the  active  field,  i.e.,  the  field  displayed  in  inverse 
video,  just  start  typing.  Any  key  which  does  not  invoke  a  special  editing  function  will  be 
recognized  as  the  first  character  of  a  new  value  for  the  active  field.  The  “input  line”,  which 
is  the  third  line  from  the  bottom,  is  then  activated  —  the  color  changes  to  high  intensity 
—  and  it  will  accept  further  input  until  the  (Enter)  key  is  hit.  The  new  value  is  written 
into  the  matrix,  the  display  updated  and  the  input  line  is  closed. 

If  the  active  field  has  a  numeric  type  you  can  input  an  expression  which  has  a  numeric 
scalar  as  its  result.  Elements  of  the  current  matrix  can  be  accessed  in  this  input  in  several 
ways:  UEDIT  works  with  a  copy  MAT  of  the  original  matrix.  Thus  any  element  of  the 
current  matrix  can  be  used  with  MATH ;  j]  where  i  and  j  are  the  row  and  column  indices, 
respectively.  A  short-cut  notation  for  the  element  at  the  cursor  position  is  a.  A  synonym 
for  a  vector  of  all  marked  elements  of  the  matrix  is  u  (see  page  41).  For  example,  to  double 
the  value  of  the  active  cell  (in  a  numeric  column,  of  course)  you  can  type 

2*a 
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After  the  (Enter)  key  is  hit  the  value  in  the  cursor  position  is  doubled.  To  add  the  elements 
of  column  1  and  assign  the  sum  to  the  active  field  you  would  type 

followed  by  (Enter) .  For  additional  examples  see  the  section  on  marking  and  highlighting 
of  areas  (page  41)  and  the  description  of  function  key  (Ctrl-F4)  (page  45). 

To  change  a  field  hit  (Enter).  This  will  copy  the  field  content  to  the  activated  input 
line  and  you  can  edit  it  by  overwriting  or  inserting  characters  —  use  the  (Ins)  key  to  toggle 
between  overwrite  and  insert  mode. 

Additional  keystrokes  recognized  during  the  data  input  are: 

(Home)  which  locates  the  cursor  at  the  beginning  of  the  input  line, 

(End)  which  locates  the  cursor  at  the  end  of  the  line  and 

(Escape)  which  cancels  the  input,  i.e.,  terminates  the  input  but  leaves  the  field  un¬ 
changed. 

Many  functions  of  UEDIT  allow  data  vectors  as  input.  To  separate  the  elements  of  a 
vector  you  should  for  consistency  always  use  commas,  although  very  often  blanks  are  also 
accepted  as  valid  delimiters.  If  a  vector  element  contains  a  comma  itself  enclose  the  element 
in  double  quotes  (")  if  your  keyboard  layout  is  set  to  ASCII  mode,  or  in  diereses  (”)  if  you 
are  working  in  APL  mode. 

H.  INPUT  OF  DATES 

Dates  are  internally  stored  as  number  of  days  since  February  29,  00005.  This  allows 
computations  to  be  performed  on  a  matrix  column  defined  as  dates. 

Valid  date  specifications  in  input  mode  are  (assuming  the  default  order  of  month-day- 
year  as  given  by  the  variable  DATE ) 

MM-DD-YYYY 
MM/DD/YYYY 
MM . DD . YYYY 
MM  DD  YYYY 


5  This  base  was  chosen  because  it  makes  the  conversion  between  internal  and  display  format 
easy  and  fast. 


40 


You  can  omit  the  year.  In  this  case  UEDIT  will  insert  the  current  year  which  is  taken  from 
the  DOS  system  date.  If  you  enter  the  year  with  only  two  digits  the  current  century  will 
be  inserted. 

Every  input  is  checked  for  validity.  This  means,  invalid  dates  like  2-29-1990  or  00- 
00-1990  will  be  rejected,  and  you  will  be  prompted  for  a  correction. 

I.  MARKING  AND  HIGHLIGHTING  OF  MATRIX  AREAS 

Marking  and  highlighting  of  matrix  cells  are  similar  actions  but  with  a  different  phi¬ 
losophy.  While  marking  is  used  as  a  preparation  for  a  several  editing  functions,  e.g.,  to 
copy,  move,  print  or  rotate  matrix  areas,  highlighting  is  used  to  emphasize  the  contents  of 
matrix  fields.  UEDIT  will  highlight  matrix  fields  by  itself  during  crosstabulations. 

The  term  “marked  area”  (or  “highlighted  area”)  denotes  the  smallest  submatrix  of  the 
original  matrix  where  each  row  and  each  column  contains  at  least  one  marked  (highlighted 
field).  That  is,  it  is  the  original  matrix  with  all  rows  and  columns  removed  which  have  no 
marked  or  highlighted  fields.  Note  that  this  area  may  contain  fields  which  are  not  marked 
or  highlighted. 

1.  Marking 

To  prepare  certain  fields  for  editing  actions  use  the  following  key  combinations. 
The  marking  is  indicated  by  a  different  background  color  and  a  blinking  “M”  in  the  upper 
left  corner  of  the  screen.  This  is  useful  as  a  reminder  if  the  marked  fields  are  scrolled  off 
the  screen. 

Ctrl-F  Mark  a  single  field 

Marks  the  field  at  the  current  cursor  location.  The  function  works  as  a  toggle, 
i.e.,  you  can  hit  (Ctrl-F)  again  to  unmark  the  field.  It  also  defines  the  first  corner 
of  a  marked  block  (see  the  next  item). 

Ctrl-B  Mark  a  block 

Defines  the  second  corner  of  a  block  to  be  marked.  The  first  corner  was  fixed  the 
last  time  (Ctrl-F)  was  hit.  All  fields  within  the  rectangular  area  defined  by  the 
two  opposite  corners  will  be  marked. 

Ctrl-R  Mark  a  row 

Marks  all  fields  in  the  row  defined  by  the  current  cursor  location. 

Ctrl-C  Mark  a  column 

Marks  all  fields  in  the  column  defined  by  the  current  cursor  location. 


41 


Ctrl-U  Unmark 

Removes  all  marking  information  from  the  matrix. 

After  you  have  marked  one  or  more  fields  of  the  matrix  you  can  use  the  symbol  w 
as  a  short-cut  notation  for  a  vector  of  these  fields.  This  vector  is  built  in  row-major  order. 
That  is,  when  you  have  marked  the  fields  MJlT[l;l],  JMT[1;3],  MATl 2;1]  and  2; 2], 
you  have  implicitly  assigned 

w-MAT[.l ;  1]  tMATl  1 ; 3]  tMATl 2 ;  1]  ,MATl 2 ; 2] 

For  example,  if  these  four  fields  contain  numbers,  you  can  add  the  first  three  elements, 
divide  the  sum  by  the  last  field  and  assign  the  result  to  the  active  field  by  typing 

(+/3tw)+w[4] 

as  a  new  data  input.  More  examples  can  be  found  in  the  description  of  function  key 
(Ctrl-F4)  (page  45)  and  in  Appendix  D. 

2.  Highlighting 

Six  levels  of  highlighting  are  available,  indicated  by  different  high-intensity  fore¬ 
ground  colors  and  a  blinking  “H”  in  the  upper  left  corner  of  the  screen.  The  level  of  the 
normal  display  is  0.  You  can  always  change  the  levels  by  assigning  a  new  level.  The  func¬ 
tions  are  similar  to  those  used  for  marking  and  are  defined  as  follows  (“Sh”  denotes  the 
Shift  key). 

Sh-0...6  Highlight  a  single  field 

Highlights  a  single  field  in  the  matrix  and  assigns  a  (color)  level  of  0, . . . ,  6  to 
the  field.  It  also  defines  the  first  corner  and  the  color  level  of  a  highlighted  block. 
Highlighting  to  level  0  is  the  same  as  removing  the  highlight  information.  For 
consistency  with  the  marking  syntax  (Sh-F)  is  available  which  will  prompt  you 
for  a  color  level. 

Sh-B  Highlight  a  block 

Fixes  the  second  corner  of  a  block  and  highlights  this  block  in  the  color  given  by 
the  first  corner. 

Sh-R  Highlight  a  row 

Highlights  all  fields  in  the  row  defined  by  the  current  cursor  location.  You  will 
be  prompted  for  the  color  level. 

Sh-C  Highlight  a  column 

Highlights  all  fields  in  the  column  defined  by  the  current  cursor  location.  You 
will  be  prompted  for  the  color  level. 
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Sh-U  Unhighlight 

Removes  all  highlighting  information  from  the  matrix.  To  unhighlight  only  cer¬ 
tain  areas  of  the  matrix  use  the  functions  above  and  assign  color  level  0. 

Sh-S  Shadowing 

This  option  asks  for  a  color  level  and  then  hides  all  rows  and  columns  which 
contain  only  fields  below  that  level.  The  newly  created  matrix  (including  the 
column  and  row  labels)  is  overlaid  over  its  “parent”  matrix  and  can  be  edited  in 
the  same  way.  To  return  to  the  original  matrix  use  “Quit”  (F3)  or  “File”  (F4) 
(see  page  44).  When  you  use  (F4)  all  changes  are  entered  into  the  parent  matrix. 

J.  UEDIT  FUNCTIONS 

Once  the  session  is  started  the  whole  range  of  UEDlVs  functions  can  be  accessed  using 
certain  keys  or  key  combinations.  In  the  following  descriptions  a  “S-”  denotes  the  (Shift) 
key,  “C-”  the  (Control)  key,  i.e.,  (S-F10)  means  to  hold  down  the  (Shift)  key  while  pressing 
(F10) . 

FI  Help 

This  function  displays  three  pages  of  on-line  help.  The  pages  contain  short  re¬ 
minders  of  the  definitions  of  all  function  keys  and  the  description  of  the  cursor 
movement  keys.  Use  (PgDn)  and  (PgUp)  to  see  all  pages. 

S-Fl  Sort 

Sorts  the  rows  of  the  matrix  simultaneously  on  any  number  of  columns  in  major- 
minor  order.  The  sorting  on  character  columns  is  performed  lexicographically 
and  is  case-insensitive,  i.e.,  lower  and  upper  case  entries  are  equivalent.  The 
normal  sort  order  is  ascending.  To  sort  descending  enter  the  column  numbers 
with  a  negative  sign.  For  example,  when  you  enter  the  column  numbers  to  sort 
on  as 

1,~5, 10 

UEDIT  first  sorts  on  column  10  in  ascending  order,  then  in  descending  order  on 
column  5,  and  finally  on  column  1  (the  most  significant)  in  ascending  order. 
Another  example  is  described  in  Appendix  D.  When  you  sort  the  rows  of  a 
frequency  table  the  cumulative  frequencies  will  be  updated  automatically. 

C-Fl  Refresh 

If  by  some  unexpected  action  the  screen  becomes  fragmented  use  this  function  to 
restore  the  the  correct  display  of  the  worksheet. 

F2  Save 

Saves  the  edited  matrix  into  a  file  of  the  same  name  (limited  to  the  first  eight 
characters)  and  the  file  extension  .UED  and  places  this  file  in  the  data  directory  as 
indicated  by  the  global  variable  PATH .  A  copy  of  the  matrix  is  kept  as  a  global  vari¬ 
able  in  the  active  workspace.  Matrix  attributes  (column  formats,  highlighting  and 
marking  information)  are  also  saved  in  this  file.  The  editing  session  continues. 
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S-F2 


Save  As. . . 

Performs  the  same  action  as  the  “Save”  function  (F2)  but  prompts  for  a  new 
matrix/file  name.  This  action  allows  the  user  to  save  a  matrix  under  different 
names  in  several  stages  of  the  editing  process.  When  the  session  continues  the 
newly  assigned  name  is  the  default  name. 

C-F2  File  Operations 

This  option  displays  a  submenu  of  available  functions  to  import  or  export  files. 
Note  that  the  export  operations  do  not  save  matrix  attributes,  e.g.  marked  areas. 
Presently  the  following  file  formats  are  supported: 

1.  Read/Write  formatted  ASCII  files  —  All  fields  in  a  data  column  have  equal 
widths  padded  with  blanks  if  necessary.  UEDIT  will  prompt  for  the  column 
widths  before  it  reads  such  a  file  as  there  is  no  way  to  safely  determine 
them.  When  it  writes  a  formatted  file  adjacent  columns  will  be  separated 
by  two  blanks. 

2.  Read/ Write  comma  separated  files  —  The  fields  of  a  record  are  delimited 
by  commas.  Trailing  blanks  in  a  field  are  not  necessary.  A  field  which 
contains  a  comma  must  be  enclosed  in  double  quotes  (").  This  format  is 
supported  by  most  commercial  database  and  spreadsheet  programs.  It  is 
also  the  fastest  way  to  import  a  file  into  UEDIT.  Note  that  STATGRAPHICS 
can  only  read  comma  separated  files  but  not  write  to  them. 

3.  Export  to  GRAFSTAT  —  As  GRAFSTAT/PC  has  not  yet  been  released 
by  IBM  only  a  basic  export  capability  is  provided  presently.  This  will  write 
a  matrix  column  as  a  variable  into  the  active  workspace.  The  variable  will 
be  a  vector  if  the  column  has  numeric  format,  otherwise  it  will  be  a  two- 
dimensional  character  matrix  with  one  element  per  row.  It  can  be  used  as 
an  input  to  the  user’s  own  APL2  functions,  unless  the  user  wants  to  execute 
them  on  the  command  line  (see  below  under  (C-F4)). 

4.  Export  to  StatXact  —  This  function  writes  one  or  more  matrix  columns  to 
a  DOS  file  which  can  be  imported  into  StatXact.  Line  numbers  cire  added 
automatically  by  UEDIT.  Note  that  StatXact  will  accept  only  numeric  data 
and  its  import  capability  is  limited  to  samples  of  up  to  200  records  and  and 
2x2  contingency  tables. 

F3  Quit 

Exits  the  current  editing  session  without  saving  the  matrix.  If  the  matrix  has 
been  changed  since  the  start  of  the  session  or  the  last  “Save”  (F2)  or  “Save  As” 
(S-F2)  operation  you  will  be  prompted  to  confirm  the  termination. 

S-F3  Put 

Saves  a  marked  area  of  the  matrix  (see  page  41)  including  row  and  column  labels 
into  a  new  APL2  matrix  in  the  active  workspace.  This  function  will  not  write  to 
disk. 
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Get 

Inserts  or  overlays  another  APL2  matrix  from  the  active  workspace  into  the  cur¬ 
rently  edited  matrix.  UEDIT  will  ask  whether  to  insert  new  rows  or  columns  or  to 
overlay  an  existing  area  of  the  matrix.  If  you  choose  to  insert  rows  the  shape  of 
the  added  matrix  will  be  adjusted,  i.e.,  if  the  new  matrix  has  less  columns  than 
the  current  matrix  it  will  be  padded  with  empty  (“missing”)  columns,  if  it  has 
more  columns  the  excess  columns  will  be  truncated.  The  corresponding  actions 
are  taken  when  you  choose  to  insert  new  columns.  When  you  want  to  overlay  the 
new  matrix  over  the  current  one  the  position  of  the  cursor  determines  the  upper 
left  corner  of  the  overlay  area.  The  same  adjustments  as  for  insertions  are  made 
if  necessary. 

F4  File 

Saves  the  edited  matrix  into  a  file  of  the  same  name  (limited  to  the  first  eight 
characters)  and  the  file  extension  .UED  and  places  this  file  in  the  data  directory 
as  indicated  by  the  global  variable  PATH  and  terminates  the  editing  session.  Ma¬ 
trix  attributes  (column  formats,  highlighting  and  marking  information)  are  also 
saved  in  this  file.  A  copy  of  the  matrix  is  held  as  a  global  variable  in  the  active 
workspace. 

S-F4  New  Matrix 

Starts  a  new  editing  session  with  a  different  matrix  without  leaving  the  UEDIT  en¬ 
vironment.  This  is  the  same  as  “Quit”  (F3)  and  then  typing  UEDIT  'NEWMATRIX' 
in  the  APL2  environment. 

C-F4  APL  command 

This  function  allows  the  user  to  submit  any  valid  APL2  command.  It  is  a  simple 
way  to  implement  additional  functions  into  the  UEDIT  workspace.  Elements  of  the 
current  matrix  can  be  accessed  as  described  before:  any  element  of  the  matrix 
can  be  used  with  MAT[i;j] ]  where  i  and  j  are  the  row  and  column  indices, 
respectively.  A  short-cut  notation  for  the  element  at  the  cursor  position  is  a.  A 
synonym  for  a  vector  of  all  marked  elements  of  the  matrix  in  row-major  order  is 
<j.  For  instance,  assume  you  have  marked  a  number  of  numeric  fields  anywhere 
in  the  matrix.  To  add  these  values  and  assign  the  sum  to  the  field  at  the  cursor 
position  use  the  command 
a«-+/u 

To  add  1  to  each  of  the  marked  elements  you  may  use 
w«-u+l 

You  should  not  use  functions  which  display  a  result  on  the  screen  as  the  location 
of  the  output  is  unpredictable  and  will  be  overwritten  by  UEDIT  immediately.  To 
display  results  which  will  not  become  elements  of  the  matrix  a  utility  function 
SHOW  is  included  in  the  UEDIT  workspace.  To  display  the  current  value  of  the 
variable  PATH  simply  type 

SHOW  PATH 
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and  return  to  the  editor  session  by  hitting  the  (Return)  key.  If,  for  example,  you 
want  to  add  the  first  ten  integers  you  can  type 

SHOW  +/xlO 
to  see  the  result. 

To  display  another  matrix,  say  NEWMATRIX ,  on  the  screen  you  can  give  the  com¬ 
mand 

USER  *  NEWMATRIX* 

This  command  calls  UEDIT  recursively  and  overlays  NEWMATRIX  over  the  existing 
matrix.  Note  that  the  name  of  the  matrix  must  be  enclosed  within  quotes.  You 
can  edit  NEWMATRIX  like  any  other  matrix.  When  you  terminate  this  session  by 
hitting  (F3)  or  (F4),  UEDIT  takes  you  back  to  the  original  matrix. 

As  the  number  of  possible  commands  is  nearly  unlimited,  the  only  message  in 
case  of  an  error  is  that  UEDIT  will  display  the  message  “Invalid  Input”.  The 
command  is  displayed  again  on  the  input  line  with  a  and  u  expanded  to  their 
actual  meaning,  and  you  have  the  chance  to  correct  your  input. 

For  additional  examples  see  Appendix  D. 

F5  Statistical  Functions 

This  option  displays  a  submenu  of  the  available  statistical  functions.  These  are 
described  on  page  49. 

S-F5  Toggle  Column  Labels 

Converts  the  first  matrix  row  to  column  labels  if  no  column  labels  exist.  Other¬ 
wise  it  adds  the  existing  column  labels  as  a  new  first  row  to  the  matrix.  When 
a  new  matrix  is  imported  UEDIT  guesses  whether  the  first  row  and  first  column 
contain  labels  or  not.  If  UEDIT’s  assumption  is  wrong  use  this  function  or  “Toggle 
Row  Labels”  (S-F6)  to  correct  the  mistake. 

C-F5  Edit  Column  Labels 

This  function  lets  you  edit  existing  column  labels  or  create  new  labels  if  none 
exist.  It  works  in  bulk  mode  (see  the  next  function)  starting  with  the  first  column. 
When  all  desired  changes  are  made  you  may  stop  by  hitting  the  “Escape”  key. 

F6  Bulk  mode 

The  bulk  mode  option  allows  the  user  to  manually  add  or  insert  new  rows  or 
columns  into  the  current  matrix.  UEDIT  first  prompts  for  row-  or  column-wise 
input.  For  row- wise  input  the  following  actions  take  place  (the  equivalent  holds 
for  column- wise  input):  A  new  row  is  inserted  into  the  matrix  before  the  current 
cursor  position,  the  cursor  is  located  in  the  first  field  of  this  row  and  a  prompt 
is  displayed  to  enter  a  value  for  this  field.  Each  time  you  hit  (Enter)  the  cursor 
changes  to  the  next  field  to  the  right  and  again  waits  for  input.  If  the  row  is 
filled  a  new  row  is  created  below  the  last  one  and  the  process  starts  over.  Hit  the 
(Escape)  key  to  leave  this  mode. 

Note  that  data  which  exceed  the  current  column  widths  will  appear  truncated 
on  the  screen  during  the  input.  This  improves  the  speed  with  which  UEDIT 
can  handle  the  input  and  stops  the  input  flow  from  being  interrupted.  After 
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completion  of  the  input  the  necessary  column  widths  are  recalculated  and  the 
display  is  updated. 

S-F6  Toggle  Row  Labels 

Converts  the  first  matrix  column  to  row  labels  if  no  row  labels  exist.  Otherwise 
it  adds  the  existing  row  labels  as  a  new  first  column  to  the  matrix.  When  a  new 
matrix  is  imported  UEDIT  guesses  whether  the  first  column  and  first  row  contain 
labels  or  not.  If  U EDlTs  assumption  is  wrong  use  this  function  or  “Toggle  column 
Labels”  (S-F5)  to  correct  the  mistake. 

F7  Insert  Row 

Inserts  a  new  empty  row  before  the  current  cursor  location. 

S-F7  Insert  Column 

Inserts  one  or  more  empty  columns  before  the  current  cursor  location.  You  will 
be  prompted  for  the  formats  of  the  new  column.  See  page  38  for  a  description  of 
valid  formats. 

C-F7  Change  Column  Format 

Lets  you  change  the  format  of  the  column  the  cursor  is  currently  located  on.  You 
will  be  prompted  to  specify  the  new  format.  See  page  38  for  a  description  of 
the  format  codes.  Note  that  only  valid  changes  will  be  accepted.  For  example, 
a  numeric  column  can  always  be  changed  to  character  format,  but  a  character- 
type  column  can  only  be  converted  to  numbers  if  all  fields  can  be  interpreted  as 
numbers. 

F8  Search 

This  function  searches  for  the  next  occurence  of  a  specified  number  or  character 
string.  Substrings  (even  in  numbers)  will  be  found  too.  The  search,  which  is 
case-sensitive,  is  performed  in  row-major  order  starting  at  the  current  cursor 
position.  The  function  does  not  “wrap  around”  the  end  of  the  matrix.  Therefore, 
in  order  to  locate  all  occurrences  of  the  search  object  you  should  start  in  the  upper 
left  corner  of  the  matrix. 

S-F8  Recode 

This  function  is  especially  useful  when  you  have  imported  data  from  a  system 
which  can  handle  only  numeric  data,  thus  requiring  that  character  type  attributes 
are  coded  with  numbers.  With  this  function  it  is  easy  to  recode  such  a  matrix 
column  to  its  original  or  any  other  desired  attribute.  UEDIT  will  display  each 
distinct  value  of  that  column  and  prompt  for  a  new  attribute.  If  you  want  to 
change  only  a  few  values  you  can  terminate  this  function  with  (Escape)  after  all 
necessary  changes  have  been  made. 

C-F8  Rotate 

To  edit  a  matrix  it  may  sometimes  be  easier  to  transpose  the  matrix,  i.e.,  turn 
rows  into  columns  and  columns  into  rows,  and  in  addition  hide  matrix  areas  you 
do  not  need.  “Rotate”  creates  a  new  matrix  containing  the  transpose  of  the 
original  matrix  if  no  area  is  marked  or  of  a  marked  area  of  the  matrix.  The  new 
matrix  is  overlaid  over  its  “parent”  matrix  and  can  be  edited  in  the  same  way. 
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To  return  to  the  original  matrix  use  “Quit”  (F3)  or  “File”  (F4) .  With  (F4)  all 
changes  are  entered  into  the  parent  matrix. 

F9  Copy 

Copies  a  marked  row  or  column  block  to  a  new  position  which  is  indicated  by  the 
current  cursor  position.  Note  that  the  block  is  inserted  before  the  current  row  or 
column.  Presently  this  function  will  only  copy  blocks  which  cover  all  rows  or  all 
columns.  To  copy  smaller  areas  use  the  “Put/Get”  combination  (S-F3),  (C-F3). 

S-F9  Move 

Moves  a  marked  row  or  column  block  to  a  new  position  which  is  indicated  by  the 
current  cursor  position.  This  is  essentially  the  same  operation  as  “Copy”  but  the 
marked  block  will  be  deleted  from  its  original  position. 

C-F9  Change  “Missing  Value” 

This  option  provides  an  easy  way  to  change  the  numeric  “Missing  Value”,  i.e., 
the  code  assigned  to  unknown  numeric  data.  The  display  will  be  updated  imme¬ 
diately  after  the  change. 

F10  Delete  Row(s) 

This  function  deletes  marked  rows  or  the  current  row  if  no  rows  are  marked. 
You  will  be  prompted  for  confirmation  before  any  action  takes  place.  If  you  have 
deleted  rows  by  mistake  you  can  still  recover  from  that  error  if  you  have  not  saved 
the  matrix  since  the  deletion.  Take  the  following  steps  to  save  as  much  of  your 
work  as  possible: 

1.  Assuming  you  sire  editing  the  matrix  MATRIX ,  choose  function  (C-F4)  and 
issue  the  APL2  command 

HELPMA TRIX+MA TRIX 

This  will  copy  the  original  matrix  which  still  contains  the  deleted  rows  to 
a  new  matrix. 

2.  “File”  the  current  matrix  with  the  (F4)  function. 

3.  Now  edit  HELPMATRIX  and  delete  all  rows  except  those  you  want  to  recover. 
“File”  this  matrix. 

4.  Restart  your  editor  session  of  MATRIX ,  locate  the  cursor  on  the  row  where 
the  deleted  rows  should  be  and  insert  HELPMATRIX  using  the  “Get”  function 
(C-F3) . 

S-F10  Delete  Colum(s) 

Deletes  marked  columns  or  the  current  column  if  no  columns  are  marked.  You 
will  be  prompted  for  confirmation  before  any  action  takes  place.  See  the  function 
(F10)  for  recommendations  for  error  recovery. 

C-F10  Printer  Functions 

Displays  a  submenu  of  available  printer  functions.  See  page  54  for  a  description. 
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K.  STATISTICAL  FUNCTIONS 

Presently  there  axe  four  statistical  functions  implemented  into  the  menuing  system  of 
UEDIT.  All  operate  on  one  or  more  columns  of  the  currently  edited  matrix.  Function  key 
(F5)  activates  a  submenu  which  lets  you  choose  from  the  functions  which  are  described  in 
the  following  sections. 

1.  Frequency  Counts  with  Conditionals 

UEDIT  prompts  you  for  a  column  number  on  which  to  perform  the  frequency 
tabulation.  If  the  column  contains  numeric  data  or  dates  you  also  have  to  specify  three 
classification  parameters:  lower  bound,  upper  bound  and  number  of  classes  (see  page  52  for 
details).  To  include  only  certain  observations  into  the  frequency  count  or  to  exclude  certain 
observations  you  have  the  option  of  conditioning  the  tabulation  on  one  or  more  matrix 
columns,  including  the  one  which  is  counted,  as  described  on  page  52.  For  example,  you 
may  want  to  exclude  from  the  count  the  cells  marked  unknown. 

The  function  then  creates  a  new  matrix  overlaid  over  its  parent  in  which  each 
row  contains  the  class  label,  absolute,  relative  and  cumulative  frequencies.  The  last  matrix 
column  displays  a  simple  bar  chart  to  visualize  the  frequencies.  If  all  absolute  frequencies 
are  smaller  than  40  then  all  bar  lengths  (measured  in  display  columns)  are  equal  to  those 
frequencies.  Otherwise  the  longest  bar  will  be  40  columns  long  and  the  others  have  lengths 
proportional  to  it.  The  lengths  are  at  least  1  unless  there  are  no  observations  in  a  class. 

You  can  edit  the  table  like  any  other  matrix.  When  you  decide  to  sort  the  rows 
on  a  different  criterion  than  the  default  lexicographical  order  the  cumulative  frequencies 
are  recalculated  automatically.  To  go  back  to  the  original  table  hit  (F4)  (File)  to  save  the 
table  to  disk  or  (F3)  (Quit)  to  exit  without  saving  the  table. 


Freq. 

Rel . 

Cum. 

-- 

2 

.00 

2 

□ 

Female 

298 

.35 

300 

1 1 II 1 1 1 1 1 1 1 1 1 1 1  ITTTTTn 

Male 

561 

.65 

861 

iiiimijiiiiiiiiniiiriiiiiiiiiiiiiiiiu 

Figure  2.  Sample  frequency  table  created  by  UEDIT 
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2.  Crosstabulation  with  Conditionals 

This  option  allows  the  user  to  crosstabulate  any  two  matrix  columns.  Thus  you 
will  have  to  specify  two  columns  at  UEDlTs  prompt.  The  handling  of  numeric  columns  and 
the  conditioning  are  the  same  as  in  the  case  of  frequency  counts. 

Again  UEDIT  creates  a  new  table  which  is  overlaid  over  the  original  matrix.  It 
contains  the  observed  absolute  frequencies  and  the  standard  residuals  for  each  field  of 
the  table.  The  standard  residuals  are  highlighted  at  color  level  1.  In  addition,  residuals 
whose  absolute  values  are  larger  than  1.96  or  2.54  are  highlighted  to  level  2  and  level  3,  re¬ 
spectively,  for  emphasis.  Thus,  to  see  only  the  standard  residuals,  you  can  use  the  Shadow 
function  (Shift-S)  to  hide  the  other  rows  and  columns. 

Also  displayed  are  the  row  and  column  marginals  in  absolute  and  relative  num¬ 
bers.  Below  the  table  the  value  of  the  x2  statistic,  the  p-value  and  the  number  of  degrees 
of  freedom  are  tabulated. 

To  return  to  the  parent  matrix  hit  (F3)  or  (F4)  as  always. 


- 

Single 

Harried 

Separated 

Divorced 

Vidosed 

total 

- 

.000 

.000 

1 .000 

.000 

1  000 

.000 

2.000 

- 

-.145 

-.978 

.141 

-.167 

2.561 

-.084 

.002 

Female 

1.000 

156.000 

107.000 

6.000 

25.000 

3.000 

298.000 

Female 

-1.198 

1.122 

-1.973 

.906 

1.749 

1  .925 

.346 

Male 

8.000 

256.000 

266.000 

6.000 

25.000 

.000 

561.000 

Hale 

.882 

-.760 

1.429 

-.651 

-1.428 

-1.398 

.652 

total 

9.000 

412.000 

374.000 

12.000 

51 .000 

3.000 

861.000 

column  X 

.015 

.479 

.434 

.014 

.059 

.004 

d.o.f . 

10.000 

Chi-aq 

29.581 

signif 

.001 

Figure  3.  Sample  contingency  table  created  by  UEDIT 
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3.  Draftsman’s  Display 

This  function  creates  2-way  contingency  tables  for  several  matrix  columns  which 
are  laid  out  internally  as 

Vi  vs.  V2  Vi  vs.  V3  Vi  vs.  V4  . . .  Vi  vs.  Vn 

V2  vs.  V3  V2  vs.  V4  ...  V2  vs.  Vn 

v3  vs.  V4  ...  V3  vs.  Vn 

Vn- 1  vs.  v; 

where  V-  vs.  V^  denotes  the  result  of  a  crosstabulation  of  columns  i  and  j . 

Each  table  is  formatted  as  the  single  tables  described  in  the  previous  subsection, 
and  you  can  edit  each  table  in  any  way.  To  switch  to  a  different  submatrix  hold  down  the 
(Alt) -key  and  hit  one  of  the  cursor  keys.  Note  that  you  must  release  (Alt)  to  start  the 
scrolling. 

UEDIT  chooses  a  temporary  name  for  each  table,  which  is  a  composite  of  the 
corresponding  column  labels  or  column  numbers  if  no  labels  exist.  Recall,  that  the  name 
of  a  matrix  is  always  displayed  in  the  bottom  row  of  the  screen. 

4.  Aggregation 

To  increase  cell  counts  and  cell  expectations  in  contingency  tables  you  can  ag¬ 
gregate  (“poor’)  matrix  columns  or  rows.  Simply  enter  the  column  or  row  numbers  in 
response  to  UEDIT’s  prompt  or  answer  “0”  which  returns  you  to  the  original  contingency 
table.  All  necessary  recalculations  will  be  performed  automatically.  Note  that  when  you 
want  to  aggregate  rows,  you  have  to  enter  the  row  numbers  which  are  displayed  in  the 
left-most  column  of  the  display.  It  is  not  necessary  that  the  columns  or  rows  you  aggregate 
are  contiguous. 

When  you  are  in  a  draftsman’s  display  the  pooling  takes  place  only  in  a  particular 
table,  i.e.,  the  other  tables  are  not  changed  and  can  be  aggregated  in  a  total  different  way. 
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5.  Classification  of  Numeric  Data 

If  you  want  to  do  frequency  counts  or  crosstabulations  on  numeric  columns  or  on 
columns  formatted  as  dates  UEDIT  assumes  that  the  values  are  from  a  continuous  domain. 
You  have  to  enter  three  classification  parameters: 

1.  the  lower  limit  L  of  the  first  class, 

2.  the  upper  limit  U  of  the  last  class  and 

3.  the  number  of  classes  n  in  which  to  group  the  data. 

The  classes  then  have  equal  lengths  !  =  ([/-  L)/n.  Two  additional  classes  are  created  to 
classify  values  below  L  and  above  U .  That  means  n  +  2  classes  are  created 

(-oo, Li),  [ L\%U\ ),  ...  ,  [Ln,f/n)J  [[/n,+oo) 

where  U{  =  L  +  i  x  l  for  i  =  1, . . .  ,n  and  L\  =  L,  L}  —  for  j  =  2, . . . , n.  The 

intervals  are  open  to  the  right,  except  for  the  first  interval. 

If  the  data  have  only  a  few  different  values  (e.g.,  re-coded  character  labels)  it  is 
suggested  that  the  user  converts  this  column  to  character  data  (Ctrl-F7)  before  starting 
the  function  to  emphasize  their  “discrete”  status. 

6.  Conditional  Calculations 

UEDIT  allows  frequency  counts  and  crosstabulations  to  be  conditioned  on  condi¬ 
tioning  columns ,  i.e.,  to  perform  the  calculations  only  for  those  rows  that  match  specific  cri¬ 
teria.  These  conditioning  columns  can  be  any  matrix  columns  including  the  ones  which  are 
counted. 

The  input  of  conditioning  columns  is  a  two-step  process:  First  you  enter  the 
column  numbers  and  their  logical  relationship,  then  you  enter  the  conditioning  criteria  for 
each  of  the  columns  successively.  A  complete  example  is  given  at  the  end  of  this  section. 

When  UEDIT  prompts  for  conditioning  columns  hit  (Enter)  if  you  want  all  rows 
to  be  included  in  the  operation.  Otherwise  enter  the  conditioning  columns  in  a  logical 
expression.  For  example,  to  include  only  those  rows  in  the  calculation  where  both  column 
1  and  column  2  match  certain  criteria  enter 

1a2 
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After  a  syntax  check  you  will  be  prompted  for  the  criteria  for  each  conditioning  column 
(see  below).  Valid  operators  are 

A  V  fi  v  -  /  (  )  , 

This  makes  a  construction  like 
1a(2v3a4) VA/5 ,6 ,7 

perfectly  legal  although  it  may  make  no  statistical  sense.  The  most  frequent  application 
will  probably  be  to  exclude  all  missing  values  from  a  crosstabulation  where  you  would  use 
the  first  example,  1a2. 

The  conditioning  criteria  are  inputted  in  the  following  way: 

1.  Character  column 

Enter  the  criteria  separated  by  commas.  For  example,  to  include  only  rows  where  the 
marital  status  is  single  or  married  type 

Single,  Married 

The  case  of  your  input  is  significant  as  are  leading  blanks.  If  an  entry  contains  a 
comma  itself  enclose  it  within  double  quotes  (M)  or  diereses  (*')  when  your  keyboard 
layout  is  set  to  APL. 

To  exclude  certain  criteria  type  a  tilde  (~)  in  front  of  the  values  followed  by  a  comma, 
i.e.,  to  exclude  rows  with  a  marital  status  single  or  married  the  correct  input  is 
~ , Singl e , Marri ed 

If  missing  values  are  denoted  by  empty  (blank)  fields  type 

/v 

t 

to  exclude  them. 

2.  Numeric  or  date  column 
The  criteria  have  the  form 

hi  >  Hi  f  1*2  ,  H2  9  •  •  • 

where  L,  and  t/;  define  a  closed  interval  [Lt,[/t]  specifying  the  range  of  values  to  be 
included  or  excluded.  For  example, 

7,10,15,20,30,30 

includes  only  rows  whose  value  in  the  conditioning  column  is  in  the  range  [7, 10] , 
[15,20]  or  is  exactly  30  =  [30,30].  Overlapping  ranges  are  allowed: 

12,20,10,15 

includes  all  rows  with  a  value  in  the  interval  [12,20]  U  [10, 15]  =  [10,20]  in  the  calcu¬ 
lation. 
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As  in  the  case  of  character  columns  the  tilde  excludes  certain  ranges.  To  exclude  rows 
with  a  date  between  February  1  and  March  15,  1990  you  have  to  type 

~  ,2-1-90 ,3-15-90 

You  can  omit  the  year  in  the  input  if  you  type  this  in  1990.  When  you  want  to  include 
the  missing  values  (MISS&N)  you  can  abbreviate  this  to 


To  summarize,  assume  you  want  to  crosstabulate  columns  3  and  6  of  a  matrix 
but  want  to  exclude  the  missing  values  in  both  columns.  Then  your  answers  to  UEDlTs 
prompts  would  be: 

(Columns  to  crosstabulate:)  3,6 
(Conditioning  columns:)  3A6 

(Criteria  for  column  3:) 

(Criteria  for  column  6:) 


L.  PRINTER  FUNCTIONS 

The  (Ctrl-FlO)  key  combination  activates  a  submenu  with  several  options.  These 
are  described  in  the  following  subsections.  If  you  use  a  Hewlett  Packard  LaserJet  II  or 
compatible  printer  it  is  recommended  that  you  call  the  Auxiliary  Printer  Processor  AP81 
on  the  DOS  command  line  instead  of  the  AP80  supplied  by  IBM.  Note  that  you  can  always 
take  a  “snapshot”  of  the  current  screen  without  using  the  special  printer  functions  by  hitting 
(Shift-PrtScm) . 

Fl  Print  worksheet 

Prints  the  complete  matrix  with  page  numbers  and  headings.  Matrices  which  do 
not  fit  on  a  single  page  are  split  on  several  continuing  pages.  Columns  are  not 
broken  over  pages.  The  page  numbering  is  done  in  the  following  layout: 


1.1 

1.2 

2.1 

2.2 

... 

... 

You  are  given  the  option  to  repeat  column  and  row  labels  on  each  page. 

F2  Print  mark  area 

Works  in  the  same  way  as  “Print  worksheet”  but  prints  only  a  marked  area  of  the 
currently  edited  matrix  (see  page  41  for  a  description  of  “marked  area”).  This 
feature  is  very  useful  and  gives  the  user  great  control  over  the  printed  output. 
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F3  Formfeed 

Sends  a  formfeed  to  the  printer,  i.e.,  ejects  a  page. 

F4  Initialize 

This  function  initializes  the  printer.  The  only  task  presently  is  (in  the  case 
of  the  AP81)  to  download  a  portrait  font  AP100RFN.SFP  and  a  landscape  font 
AP100RFN .  SFL  to  the  memory  of  the  laser  printer.  You  can  use  any  fonts  provided 
they  have  these  names  (or  are  renamed  to  them)  and  reside  in  the  default  directory 
of  the  default  disk.  UEDIT  displays  a  warning  message  if  it  cannot  found  one  or 
both  fonts  but  does  not  take  any  further  action.  You  have  to  initialize  the  printer 
only  once;  the  fonts  remain  in  memory  until  you  turn  off  the  printer. 

F5  Orientation 

Switches  between  portrait  mode  (the  default)  and  landscape  orientation.  The 
function  also  exchanges  the  valus  for  textheight  and  textwidth  against  each  other. 
The  menu  always  shows  the  mode  you  switch  to  when  you  choose  this  option. 
I.e.,  when  you  read  “portrait”  on  the  menu  screen  you  are  currently  in  landscape 
mode. 

F6  Left  margin 

Specifies  the  blank  space  (in  printer  columns)  to  the  left  of  the  printer  matrix. 
F7  Number  of  columns 

Sets  the  number  of  columns  to  be  printed  per  page.  Note  that  this  number 
specifies  the  actual  printer  positions,  usually  the  number  of  characters.  It  is  not 
related  to  the  columns  of  the  matrix. 

F8  Top  margin 

Defines  the  number  of  blank  lines  above  the  page  number,  which  is  the  first  line 
printed. 

F9  Lines  per  inch 

Sets  the  vertical  spacing  of  the  printout.  The  most  used  values  are  6  and  8  lines 
per  inch.  Depending  on  the  size  of  the  font  and  the  size  of  the  worksheet  to  be 
printed  you  may  increase  or  decrease  the  value. 

F10  Reset 

This  option  resets  all  values  set  with  functions  (F5)-(F9)  to  their  default  values 
which  are  saved  in  the  global  variable  PRINT. 

The  global  variable  PRINT  is  a  7- element  vector  containing  the  following  default  values 
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PRINTS 

11 

PH 

PRINTS 2] 

8.5 

PW 

PRINTL31 

0 

PRINTS 

10 

LM 

PRIATT[5] 

80 

PC 

PRIATT[6] 

3 

TM 

PRIATr[7] 

6 

LPI 

paper  height 
paper  width 

flag  portrait(O)  /  landscape(l) 
left  margin  (in  printer  columns) 
number  of  columns  to  print 
top  margin  (in  lines) 
lines  per  inch 


For  example,  to  make  landscape  printing  the  default  mode  change  PRINT  by  assigning 
PRIOT[x3]«-8.5  11  1 

From  these  parameters  other  necessary  values  can  be  calculated.  The  number  of  lines 
printed  per  page  (textheight  TH)  is  defined  by 


TH  =  integer  (lPI  x  [pH  - 


TM 

lpI 


The  “usable”  textheight  is  TH  minus  3  lines  for  the  page  number  and  the  worksheet  title 
minus  2  lines  if  column  labels  are  printed. 

To  calculate  horizontal  margins  in  inches  the  “pitch”  of  the  font  must  be  known.  The 
pitch  is  the  number  of  characters  per  horizontal  inch.  Usual  pitch  values  for  dot  matrix 
printers  are  10  or  12.  The  laser  printer  fonts  AP100RFN.SFP  and  AP100RFN.SFL  both  print 
12  characters  per  inch.  Then  the  left  margin  LMI  and  right  margin  RMI  in  inches  are 
defined  by 


LMI 

RMI 


LM 

pitch 

pw_LM±NC 

pitch 


To  obtain  a  left  margin  of  l  and  a  right  margin  of  r  inches  set 


LM  =  l  x  pitch 

NC  =  ( PW  -r)x  pitch  -  LM 
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M.  CLEANING  UP 

When  you  finish  your  editing  session  you  may  want  to  save  global  variables  you  have 
created  in  a  separate  file  or  erase  these  objects  to  clean  up  the  workspace  before  you  start 
a  new  session.  The  function  CLEAN  helps  you  with  these  tasks.  Simply  type 

CLEAN 

on  the  APL2  command  line.  You  have  are  given  choices: 

1.  To  erase  all  functions  and  variables  which  are  part  of  the  UEDIT  system, 

2.  To  erase  all  objects  which  are  not  part  of  the  UEDIT  system. 

Respond  by  typing  (1)  or  (2)  followed  by  (Return)  depending  on  your  choice.  Any  other 
key  combination  will  cancel  the  execution  of  this  function. 

If  you  want  additional  functions  or  variables  to  be  recognized  by  the  CLEAN  function 
as  an  integral  part  of  UEDIT,  copy  them  into  the  workspace,  give  the  commands 

Anl2«-Dtb**c[2]DtfL  2 
An23«-Dt b‘*  c  [2]  QNL  3 

and  save  the  UEDIT  workspace. 
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APPENDIX  D.  SAMPLE  SESSION  WITH  UEDIT 


The  following  sample  session  tries  to  make  the  user  more  familiar  with  some  of  UEDlTs 
features.  Professor  User  of  the  Naval  Postgraduate  School  currently  teaches  a  class  with  18 
students.  The  grading  for  the  course  is  based  on  two  examinations  which  determine  40% 
and  60%  of  the  final  grade,  respectively.  At  the  beginning  of  the  quarter  he  has  prepared  a 
UEDIT  matrix  CLASS  with  the  names  of  the  students  which  he  uses  as  row  labels.  After  the 
first  exam  he  enters  the  points  for  each  student  with  UEDlTs  bulk  mode  (F6) .  This  allows 
him  to  enter  the  scores  one  after  the  other  without  looking  up  from  his  notes.  The  result 
after  adding  column  labels  with  (Ctrl-F5)  is  a  display  as  shown  in  Figure  4. 


Name 

pt.i 

1 

Allen 

78 

2 

Baker 

73 

3 

Curtis 

94 

4 

Dillon 

74 

5 

Ellis 

69 

6 

Field 

71 

7 

Gould 

54 

8 

Hayes 

100 

9 

Jones 

82 

10 

King 

54 

11 

Lee 

91 

12 

Hiller 

70 

13 

Norman 

85 

14 

Ovens 

63 

15 

Peters 

66 

16 

Riley 

90 

17 

Smith 

77 

18 

Thomas 

72 

N4 


:  -  : 

Press 

Enter  to  change  field  values 

y  UEdit 

1.00 

CLASS  [18 ;1] 

FI  -  Help j 

Figure  4.  UEDIT  display  after  input  of  the  results  of  the  first  exam 
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Professor  User  has  a  standard  scheme  to  translate  points,  which  always  have  100  as  a 
maximum,  into  grades: 

points  94-100  87-93  80-86  73-79  66-72  59-65  52-58 

grade  A  A—  B  +  B  B—  C+  C 

Therefore  he  has  written  a  short  APL2  function  GRADE  which  allows  him  to  do  the 
conversion  efficiently: 

[0]  R- GRADE  PT 

[1]  R-('A'  'A-'  1 B+  *  'S'  'B-'  'C+'  'C‘)[L(107-Pr)+7] 

He  is  also  interested  in  the  ranking  of  the  students.  So  he  decides  to  add  two  columns  to 
the  matrix.  He  moves  the  cursor  to  the  right  of  the  “points”  column,  hits  (S-F7)  to  insert 
columns  and  answers  the  prompt  for  column  types  with 

C,A 

because  the  grades  have  character  type  but  the  ranks  are  numbers.  Both  tasks  take  column 
1  as  input.  So  he  marks  column  1  by  moving  the  cursor  into  it  and  hitting  (Ctrl-C).  This 
allows  him  to  use  w  as  a  short-cut  notation  for  NAT[;1].  Then  he  uses  UEDIT’s  feature  to 
enter  arbitrary  APL2  commands  ( (Ctrl-F4) )  twice  and  assigns,  on  the  command  line, 

MAT[;2] -GRADE  u 
MATt;  3]«-ifu 

This  inserts  the  grades  into  column  2  and  the  ranks  into  column  3  as  shown  in  Figure  5. 
He  unmarks  column  1  ((Ctrl-U))  and  files  the  matrix  with  (F4). 
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Name 

pt .  1 

g*.i 

rank 

1 

Allen 

78 

B 

7 

2 

Baker 

73 

B 

10 

3 

Curtis 

94 

A 

2 

4 

Dillon 

74 

B 

9 

S 

Ellis 

69 

B- 

14 

6 

Field 

71 

B- 

12 

7 

Gould 

54 

C 

17 

8 

Hayes 

100 

A 

1 

9 

Jones 

82 

B+ 

6 

10 

King 

54 

C 

18 

11 

Lee 

91 

A- 

3 

12 

Miller 

70 

B- 

13 

13 

Norman 

85 

B+ 

5 

14 

Owens 

63 

C+ 

16 

15 

Peters 

66 

B- 

15 

16 

Riley 

90 

A- 

4 

17 

Smith 

77 

B 

8 

18 

Thomas 

72 

B- 

11 

N4 

C4 

N4 

!  _  | 

Press 

Enter  to  change  field  values 

UEdit 

1.00 

CLASS  [18; 3] 

FI  -  Help j 

Figure  5.  UEDIT  display  after  adding  grades  and  ranks 
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After  the  second  examination,  Professor  User  deletes  the  ranking  column  with  function 
(S-F10) .  Again  he  uses  the  bulk  mode  to  enter  the  points  for  the  second  exam  and  then 
converts  them  to  grades  with  his  GRADE  function.  He  adds  two  more  columns  to  the  matrix, 
which  will  contain  the  course  points  and  course  grade,  and  fills  these  columns  with  the  APL2 
command 

MAT [; 6]*- GRADE  MATl;S]*-MATli  1  3]  +  .*. 4  .6 
This  gives  him  the  display  of  Figure  6. 


Name 

pt .  1 

gr-l 

pt  .2 

gr-2 

1 

Allen 

78 

B 

77 

B 

2 

BaXer 

73 

B 

71 

B- 

3 

Curtis 

94 

A 

98 

A 

4 

Dillon 

74 

B 

54 

C 

5 

Ellis 

69 

B- 

79 

B 

6 

Field 

71 

B- 

74 

B 

7 

Gould 

54 

C 

55 

C 

8 

Hayes 

100 

A 

88 

A- 

9 

Jones 

82 

B+ 

89 

A- 

10 

King 

54 

C 

62 

C+ 

11 

Lee 

91 

A- 

92 

A- 

12 

Miller 

70 

B- 

81 

B+ 

13 

Norman 

85 

B+ 

78 

B 

14 

Ovens 

63 

C+ 

70 

B- 

15 

Peters 

66 

B- 

66 

B- 

16 

Riley 

90 

A- 

92 

A- 

17 

Smith 

77 

B 

83 

B+ 

18 

Thomas 

72 

B- 

80 

B+ 

N4 

C4 

N4 

C4 

points  grade 


77. 

.4 

B 

71. 

.8 

B- 

96. 

.4 

A 

62. 

.0 

C+ 

75. 

,0 

B 

72. 

.8 

B 

54. 

.6 

C 

92. 

.8 

A- 

86. 

.2 

A- 

58. 

.8 

C+ 

91. 

.6 

A- 

76. 

.6 

B 

80. 

.8 

B+ 

67. 

.2 

B- 

66. 

.0 

B- 

91. 

.2 

A- 

o 

CD 

.6 

B+ 

76. 

.8 

B 

N6.1  C5 


1 . 

Press 

Enter  to  change  field  values 

UEdit 

1.00 

CLASS  [18; 6] 

FI  -  Help 

Figure  6.  UEDIT  display  after  calculating  the  final  scores 
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To  rank  the  students  he  chooses  to  sort  the  rows  of  the  matrix  according  to  the  points 
of  column  5.  In  the  case  of  equal  numbers  he  wants  the  points  of  the  second  examination 
(column  3)  to  be  the  criterion  for  a  higher  rank.  Therefore  he  starts  the  sorting  with  (S-Fl) 
and  responds  to  U EDIT’s  prompt  for  column  numbers 

-5,-3 

This  will  show  him  the  students  in  descending  order  of  their  points,  i.e.,  the  best  student’s 
name  is  listed  in  the  first  row,  as  shown  in  Figure  7. 


r 

1 

2 

3 

4 

5 

6 

Name 

pt.i 

gr-l 

pt  .2 

gr-2 

points 

grade 

1 

Curtis 

94 

A 

98 

A 

96.4 

A 

2 

Hayes 

100 

A 

88 

A- 

92.8 

A- 

3 

Lee 

91 

A- 

92 

A- 

91.6 

A- 

4 

Riley 

90 

A- 

92 

A- 

91.2 

A- 

5 

Jones 

82 

B  + 

89 

A- 

86.2 

A- 

6 

Norman 

85 

B  + 

78 

B 

80.8 

B+ 

7 

Smith 

77 

B 

83 

B  + 

80.6 

B+ 

8 

Allen 

78 

B 

77 

B 

77.4 

B 

9 

Thomas 

72 

B- 

80 

B+ 

76.8 

B 

10 

Miller 

70 

B- 

81 

B  + 

76.6 

B 

11 

Ellis 

69 

B- 

79 

B 

75.0 

B 

12 

Field 

71 

B- 

74 

B 

72.8 

B 

13 

Baker 

73 

B 

71 

B- 

71.8 

B- 

14 

Ovens 

63 

C+ 

70 

B- 

67.2 

B- 

15 

Peters 

66 

B- 

66 

B- 

66.0 

B- 

16 

Dillon 

74 

B 

54 

C 

62.0 

C+ 

17 

King 

54 

C 

62 

C+ 

58.8 

C+ 

18 

Gould 

54 

C 

55 

c 

54.6 

c 

N4 

C4 

N4 

C4 

N6.1 

C5 

\  _  j 

Press  Enter  to 

change  field 

values 

y  UEdit  1.00 

CLASS  [18; 6] 

FI  -  Help y 

Figure  7.  UEDIT  display  after  sorting  on  final  scores 
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Professor  User  then  decides  to  crosstabulate  the  grades  of  the  two  exams  although  he 
knows  that  this  will  not  make  much  sense  as  there  are  only  18  students  in  his  class.  But  he 
wants  to  become  more  familiar  with  UEDIT  and  uses  every  opportunity  to  gain  experience 
with  its  features.  So  he  hits  (F5)  to  open  the  menu  of  statistical  functions,  chooses  (F2)  for 
crosstabulation  and  enters  2,4  as  the  columns  of  interest.  The  result  is  a  7  x  7  contingency 
table,  shown  in  Figure  8.  Of  course,  most  of  the  observed  frequencies  are  0.  He  decides  to 
aggregate  the  scores  into  only  three  classes  A,  B  and  C  by  pooling  (A,A-),  (B,B+,B-)  and 
(C,C+).  He  does  this  for  the  rows  as  well  as  for  the  columns  of  his  matrix.  Note  that, 
when  asked  for  row  numbers  to  aggregate,  he  responds  with  “real”  matrix  rows,  that  is 
for  example,  rows  1  and  4  to  pool  grades  A  and  A-.  Figure  9  shows  the  resulting  3x3 
contingency  table. 


Figure  8.  UEDIT  display  of  the  contingency  table 
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Figure  9.  UEDIT  display  of  the  contingency  table  after  aggregation 
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After  this  excursion  Professor  User  leaves  the  contingency  table  display  by  hitting 
(F3)  which  takes  him  back  to  the  original  matrix.  He  wants  to  know  at  least  one  statistical 
figure,  the  average  scores  of  his  students.  He  moves  the  cursor  to  column  5  and  marks  it 
with  (Ctrl-C).  Then  he  moves  the  cursor  to  the  last  line,  i.e.,  to  the  line  below  the  last 
score,  types 

(+/u)*pw 

and  presses  (Enter).  Note  that  he  does  not  have  to  hit  (Enter)  to  staxt  entering  a  new 
value  for  a  field.  As  soon  as  he  types  the  left  parenthesis,  the  input  line  is  activated  with 
the  parenthesis  as  first  character. 

He  does  the  same  calculations  for  columns  1  and  3  and  formats  these  columns  so  that 
they  are  rounded  to  one  decimal  (Ctrl-F7).  This  gives  him  the  display  shown  in  Figure  10. 


Name 

pt .  1 

gr-l 

pt  .2 

gr.2 

points 

grade 

1 

Curtis 

94.0 

A 

98.0 

A 

96.4 

A 

2 

Hayes 

100.0 

A 

88.0 

A- 

92.8 

A- 

3 

Lee 

91.0 

A- 

92.0 

A- 

91.6 

A- 

4 

Riley 

90.0 

A- 

92.0 

A- 

91.2 

A- 

5 

Jones 

82.0 

B+ 

89.0 

A- 

86.2 

A- 

6 

Norman 

85.0 

B+ 

78.0 

B 

80.8 

B+ 

7 

Smith 

77.0 

B 

83.0 

B+ 

80.6 

B+ 

8 

Allen 

78.0 

B 

77.0 

B 

77.4 

B 

9 

Thomas 

72.0 

B- 

80.0 

B+ 

76.8 

B 

10 

Hiller 

70.0 

B- 

81  .0 

B+ 

76.6 

B 

11 

Ellis 

69.0 

B- 

79.0 

B 

75.0 

B 

12 

Field 

71.0 

B- 

74.0 

B 

72.8 

B 

13 

Baker 

73.0 

B 

71.0 

B- 

71.8 

B- 

14 

Ovens 

63.0 

C+ 

70.0 

B- 

67.2 

B- 

15 

Peters 

66.0 

B- 

66.0 

B- 

66.0 

B- 

16 

Dillon 

74.0 

B 

54.0 

C 

62.0 

C+ 

17 

King 

54.0 

C 

62.0 

C+ 

58.8 

C+ 

18 

Gould 

54.0 

C 

55.0 

C 

54.6 

C 

19 

75.7 

77.2 

76.6 

N5.1 

C4 

N5 . 1 

C4 

N6.1 

C5 

Press 

Enter  to  change  field  values 

UEdit 

1.00 

CLASS  [19 ; 6] 

FI  -  Help 

Figure  10.  UEDIT  display  after  adding  average  scores 
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Finally,  he  wants  to  print  out  the  scores.  He  first  sorts  the  rows  back  to  their  original 
order,  that  is,  in  ascending  order  of  their  names.  He  does  that  by  responding  with  a  1  to 
U EDIT’s  prompt  for  the  column  numbers.  For  the  printout  he  is  not  interested  in  the  letter 
grades  of  the  two  exams  and  wants  to  omit  columns  2  and  4  from  the  output.  Therefore 
he  marks  columns  1,  3,  5  and  6  using  (Ctrl-C),  opens  the  printer  menu  with  (Ctrl-FlO) 
and  chooses  option  (F2)  which  will  print  out  only  the  marked  area,  in  this  case  the  marked 
columns.  The  printed  output  would  then  look  like  the  one  shown  in  Figure  11. 


Name 

pt .  i 

pt.2 

points 

grade 

Allen 

78.0 

77.0 

77.4 

B 

Baker 

73.0 

71.0 

71.8 

B- 

Curtis 

94.0 

98.0 

96.4 

A 

Dillon 

74.0 

54.0 

62.0 

C+ 

Ellis 

69.0 

79.0 

75.0 

B 

Field 

71.0 

74.0 

72.8 

B 

Gould 

54.0 

55.0 

54.6 

C 

Hayes 

100.0 

88.0 

92.8 

A- 

Jones 

82.0 

89.0 

86.2 

A- 

King 

54.0 

62.0 

58.8 

C+ 

Lee 

91.0 

92.0 

91.6 

A- 

Miller 

70.0 

81.0 

76.6 

B 

Norman 

85.0 

78.0 

80.8 

B 

Owens 

63.0 

70.0 

67.2 

B 

Peters 

66.0 

66.0 

66.0 

B 

Riley 

90.0 

92.0 

91.2 

A 

Smith 

77.0 

83.0 

80.6 

B 

Thomas 

72.0 

80.0 

76.8 

B 

75.7 

77.2 

76.6 

Figure  11.  UEDIT  printout  of  the  final  scores 
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APPENDIX  E.  UEDIT  FUNCTION  LISTING 


The  majority  of  functions  of  the  UEDIT  workspace  (Version  1.0)  were  written  by  the 
author.  Function  listings  under  subsequent  versions  will  differ.  The  version  number  appears 
in  the  lower  left  corner  of  the  display.  The  functions  CHISQ  and  GAUSS  were  originally 
written  by  Professor  Harold  J.  Larson  of  the  Naval  Postgraduate  School  for  the  APL*PLUS 
system  of  STSC,  Inc.  They  use  fast,  numerically  stable  algorithms  and  are  extremely 
accurate.  Necessary  changes  for  the  APL2  system  were  applied  by  the  author.  The  functions 
Afv,  Help  and  Menu  are  in  a  similar  form  part  of  the  APL2/PC  distribution,  but  were 
enhanced  for  the  purposes  of  UEDIT. 

The  two  functions  UEDIT  and  USER  are  listed  first  as  they  are  the  most  important  parts 
of  the  workspace.  All  other  functions  are  called  from  here.  They  are  listed  in  alphabetical 
order. 


[  0] 
[  l] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 
[  26] 


UEDIT  ORIG ; DIO ; AC; A SR ; ASC; Apvar ; F;Cs;Ds; KEYB 

a 

Q  Main  Program;  initializes  parameters,  then  calls  USER,  the  dispatcher 

a 

□10-  0 


Q 

Q  Assign  undefined  keys 

KEYB<-  ( 1 6  x  256iDA  V%4>2  DPK  0  38)+256lCUVM>2  0PK  0  36 
KEyB-3+(16x256iEMM>2  DPK  0 ,KEyB+3)+256lDAVM>2  QPK  Q.KEYB+l 
□VA-DAVT22l]DPK  0 , KEYB+(58X3) +33  Q  Ctrl-F, 

□VA-DAV[219]QPK  0,KErB+(58*3)+19  Q  Ctrl-R, 

□WA-DA/[220]DPE  0 ,KEYB+ (58x3) +22  0  Ctrl-U, 

a 

a  Initialize  AP 124,  get  screen  size 
□WA-(DEX  2  2p ' CsDs ' ) ,DSVfi  F-2  2p ' CsDs ' , OpQIO- 1 
□VA-124  DSVO  F 

i(2v.*124  DSVO  D/'-O.pd-'  'ERROR:  AP  124  NOT  ACTIVE'" 

(hSR  ASC)-Ds[l;3  4] ,0pCs-9 

Q 

Q  Define  color  settings 
Q  1  -  edit  area 

Q  2.. 7  -  highlight 

a  8  -  command  input  line 

Q  9  -  normal  marked 

Q  10.. 15  -  highlight  marked 

Q  Row  1:  normal  color  values 
Q  Row  2:  color  if  active  field  /  blinking 


16  -  row/column  labels 

17  -  type/ format  line 

18  -  message  line 

19  -  status  line 

20  -  pop-up  windows 


hex  DD 
hex  DB 
hex  DC 
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[  27] 
[  28] 


[  29] 
[  30] 
[  31] 
[  32] 
[  33] 
[  34] 
[  35] 
[  36] 
[  37] 
[  38] 
[  39] 
[  40] 
[  41] 
[  42] 
[  43] 
[  44] 
[  45] 
[  46] 
[  47] 
[  48] 
[  49] 
[  50] 


AC-23,28  30  31  26  27  25,7  87,92  94 
AC-AC, [0.5] 113,124  126  127  122  123 
203,0  159  0  0 

Q 

Q  Define  standard  fields 
F*-l  6  2,(ASC-5),2,AC[l;16] 

F*-F,3  1,  (ASK-6), 5  2,  AC[l ;  16] 

F-F, (ASK-3), 1  1,ASC,2,AC[1;17] 

F-F, ASK, 1  1,ASC,2,AC[1;19] 

F-F, (ASK-1) ,1  l,ASC,2,AC[l;18] 

F-F,  (ASK-2) , 1  1,ASC,2,AC[1;8] 

F-F, 3  7  19  33  2,AC[1;20] 

F-F, 3  6,(ASK-6),(ASC-5),2,AC[l;l] 
F-F,  1  1  1  1  2,AC[2;20] 

F-F,  1  1  1  5  2,AC[2;20] 

F-F, 2  6  1  1  2 ,  AC[l ;  16] 

F-F, 6  40  13  32  2,AC[l;20] 

Cs-1 ,  OpDs-12  6pF 
Cs-1 2  0,0pCs-12,0pDs-6  1  1 
Q 

□M-KesPrt 

Q 

DW ABUSER  ORIG 
Q 

-»0 , F-OSVK  2  2ptCsDst 


95  90  91  89,71  71  31  110  110 
121,63  117,124  126  127  122  123  121, 


Q  1  -  Column  labels 
Q  2  -  Row  labels 
Q  3  -  Format  line 
Q  4  -  Status  line 
Q  5  -  Message  line 
Q  6  -  User  input  line 
Q  7  -  Help  screen 
Q  8  -  Edit  area 
Q  9  -  cursor  position 
Q  10  -  upper  left  corner 
Q  11  -  pseudo  label 
Q  12  -  Submenus 
Q  Initialize  fields 
Q  Cursor  position 

Q  Default  printer  parameters 

Q  Start  edit  session 

Q  Retract  shared  variables 


[  0] 


[  1] 
[  2] 
[  3] 

[  4] 

[  5] 

[  6] 
[  7] 

[  8] 
[  9] 

[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 


RC<-USER  ORIG;  N ;K;L  ;DISP ;ALR;  ALC;  ALS;  HAT; &MR;&MC;6AR;AAC;AR0;AC0;&0C;A0R; 
PRESS; ACL; ACT; ADM; AMP; MSG; MSGO ; CFLA G ;  CLR ;  CHR ;  A  UL ;  A  UR ;  A  UC ; A  WR ; A WC ; IMA ; 
&DA ; MARKC; MARKR ; HIGHR ; HIGHC; HIGH A ; FindTxt ; DISA ; DISL ; DIST; DISB 

Q 

0  Main  dispatcher  for  all  other  functions 
Q  RC:  1  -  File,  0  -  Quit  or  flag  for  draftsmen 

Q 


RC>-CFLAG-0 
FindTx t- ' ' 

A UL- '  ' 

Cs-1  8,0pDs-3  6,(ASK-6),(ASC-5),2,AC[1;1] 
Cs-l,9,0pDs-l  1  2  5  0 , AC[1 ; 16] 
i(0RIG="  )/'->(Menu  2)10, NEW 
-( 1 +NevMat  ORIG) =0 , REFRESH, RESTART 
Q 

Q  Rebuild  screen  display 
Q 

NEW: CFLAG-0 


Q  'Change'  flag 
Q  1  Search '  key 
Q  '  Mark/ high'  reminder 
Q  Pseudo  fields 

Q  File  menu  if  no  matrix  name 
Q  Get  the  matrix 


Q  Initial  values 


REFRESH: Cs-2 , 5 , OpDs- '  Updating  display  ...  1 ,0pCs-7,5,0pDs-AC[2; 18] 
Refresh 
Play 

RESTART: DISL'-VerShift  Q  create  line  numbers,  row  Labels 

DISB'-HorShift  a  create  column  labels,  field  types/widths 

MSG-MSG0-1  Press  Enter  to  change  field  values' 


a 

ScrO.ClearUL  O  clear  upper  left  corner 

Cs-l,8,0pDs-AUK,AUC,AW,AyC,2,AC[l;l] 
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[  26] 
[  27] 
[  28] 
[  29] 
[  30] 
[  31] 
[  32] 
[  33] 
[  34] 
[  35] 
[  36] 
[  37] 
[  38] 
[  39] 
[  40] 
[  41] 
[  42] 
[  43] 
[  44] 
[  45] 
[  46] 
[  47] 
[  48] 
[  49] 
[  50] 
[  51] 
[  52] 
[  53] 
[  54] 
[  55] 
[  56] 
[  57] 
[  58] 
[  59] 
[  60] 
[  61] 
[  62] 
[  63] 
[  64] 
[  65] 
[  66] 
[  67] 
[  68] 
[  69] 
[  70] 
[  71] 
[  72] 
[  73] 
[  74] 
[  75] 
[  76] 
[  77] 
[  78] 
[  79] 
[  80] 


Scrl  :DISP-MakeDisP 
Scr2 : DISA-MakeDisA 
Title  ORIG 
Q 

SCREEN :  Cs- 7 , 5 ,  OpDs-4  C[  1 ;  1 8] 

Cs-2,S,0pDs-MSG0 
Cs*-4 , 1 ,  OpDs-DIST 
Cs-  4 , 3 ,  Op  Ds-DISB 

Cs-4 ,2 ,OpDs-DISL ,0pCs-7 ,2 ,0 ,pDs-AC[l ;  16] 

Cs*-7 , 8 ,  Op  Ds-DISA 
Cs-2,8,0pDs-DISP 
ShowCell 

Q 

Q  Wait  for  and  evaluate  key  strokes 
Q 

Key : -  (  ( pAktyp )  <PRESS-AktypxcCHR-2XDs , OpCs-3 , 1 )  p ANY 
-tPRESS^Akey 

qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 
CF1 : -•REFRESH  D  Rebuild  screen 

Q 

FI -.-SCREEN, Help  a  Help 

qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 
F8:-(27=llFindTxt-FindTxt  Input  'Search  for  ...')pSCREEN  a  Search 

Cs*-2,5,0pDs*-'  Searching  .  .  .  '  ,0pCs-7 ,S ,0pDs-AC[2 ;  18] 

(K  L)-AAR  AAC 
F81 :-(AWC>L-L+l)pF82 
-(AMR<K-K+L- l)pF83 

F82:-(v/Find^xt€ie(,  '  '*•  'FromDays' ) [l+AMP[3;L]]  , 1  :»Mr[K;L]  '  )1F81 
(AAR  AAC)-K  L 

ACO-ACO((hWC>(+/AMP(.l  2;AAC])-AWP[l;])xl 
-RESTART, AR0-AR0(AAR+AUR-ASR-4 
F83 -.-SCREEN  ,0pCs*-ll ,  l  ,0pCs-2  ,S  .OpDs-' Not  found:  '  .FindTxt 

QQQQQOQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQOQQQQQQQQQQQQQQ 

CF9 •  Cs-2 ,6 .OpDs-fK-MISSAN  D  Chg  HISSAN 

-(27=ltW*-l  Input  'Enter  new  HISSING  VALUE  code' )pSCREEN 
'-CF91 '  UEA  'MISSAN-tN' 

MAT((K=~ MAT) /xpHA T- , MAT] -MISS AN 

MAT- (AMR , AMC) pMAT 

-REFRESH 


Q  create  edit  window 
a  create  edit  attributes 


0  Set  message  line  to  no-blink 

D  column  labels 
a  column  formats 
Q  row  labels 

Q  edit  window  attributes 
Q  edit  window 
Q  Highlight  cell 


CF91 :-CF9 ,0pCs-ll , 1 ,0pCs-2 ,5 ,0pDs-’ MISSING  VALUE  must  be  numeric ' 

QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQCIQQQQQQQQQQQQQQQQQQQQQQQQ 


Q  APL  command 
o  Statistics  menu 

qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 


CF4 : -Commandl SCREEN , REFRESH 
a 

FS:-(Menu  l) l SCREEN .RESTART 


F7 : -Scrl , InsRow 

SF7  -.-InsColl SCREEN ,  Scrl 

a 

F9:-(CopyMove  1) 1  SCREEN , Scrl 
SF9 : - ( CopyMove  0) l SCREEN , Scrl 
a 

F10:a((x0)=K-(a/AMA>8)/xAMR)/'-F101,K-,AAR' 
-(GetYN  ‘Delete  marked  rows' )1 SCREEN 


Q  Insert  row 
Q  Insert  column 

q  Copy  area 
o  Move  area 

Q  Delete  rows 


-F102,pAUL[l]-'  ' 

F101 :-(GetYN  'Delete  current  row')lSCREEN 
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[  81] 
[  82] 
[  83] 
[  84] 
[  85] 
[  86] 
[  87] 
[  88] 
[  89] 
[  90] 
[  91] 
[  92] 
[  93] 
[  94] 
[  95] 
[  96] 
[  97] 
[  98] 
[  99] 
[100] 
[101] 
[102] 

[103] 

[104] 

[105] 

[106] 

[107] 

[108] 

[109] 

[110] 
[111] 
[112] 

[113] 

[114] 

[115] 

[116] 

[117] 

[118] 

[119] 

[120] 
[121] 
[122] 

[123] 

[124] 

[125] 

[126] 

[127] 

[128] 

[129] 

[130] 

[131] 

[132] 

[133] 

[134] 

[135] 


F102 .  i( l+AWR=p£)p 1  -ScrO .DelRow  K'  '-‘SCREEN' 
a 

SF10 :  i  ((x0  )=£•-(  A/AWA>8) /xAMC)  /  '-*SF101 1  £<-,  AAC1  Q  Delete  columns 

-(GetYN  'Delete  marked  columns'  )ISCREEN 


-SF102,pADL[l>'  ' 


SF101  :- (GetYN  'Delete  current  column’  ) l SCREEN 
SF102:k(UbMC=pK)o'-Scr0,DelCol  K‘  '- SCREEN ' 

qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq 


SHi:-(High  1)ISCREEN ,Scr2 
SHB:-(High  2)lSCREEW,Scr2 
SHR :  -•  ( High  3)lSCREEW,Scr2 
SHC:-(High  4 ) l SCREEN, Sc r2 
SHU:-(High  S)lSCREEN,Scr2 
SHS : -Shadowl RESTART, REFRESH 


Q  Highl .  field 
Q  Highl .  block 
Q  Highl .  row 
Q  Highl.  column 
Q  Un-highlight 
Q  Shadow 


Q 


CF 

CB 

CR 

CC 

CU 


-*Scr2 ,  Hark  1 
-Scr2 ,  Mark  2 
-Sex'!  .Mark  3 
->Scz/2  .Mark  4 
-Scz2  .Mark  5 


CF8 : -Rot  at  el  REST ART, REFRESH 


F2 : -SCREEN, CFLAG*0*SaveMat  ORIG 
SF2 : -SCREEN , CFLAG-O xSaveMat  " 
F3:-Quitl  SCREEN ,  ROO 
F4:-(RC«-SaveMat  ORIG)lSCREEN ,0 


Mark  field 
Mark  block 
Mark  row 
Mark  column 
Unmark 
Rotate 


QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQCIQQCIQQQQCIQQQQQQQQQQQQQ 


Save 

Save 

Quit 

File 


as 


Q 

CF2:-(Menu  2) IScrl , RESTART 
Q 

CF10:-*Scrl,Menu  3 
P 

CF3 : -GetBlocklSCREEN .REFRESH 
a 

SF3:-(27=ltJV-GetJVame  ”)p SCREEN 
-( '  '  =K‘-CompBlock)pSF32 
'-SF31'  D£A  ' IN,  " -CompBlock'  " 
-SCREEN 


Q  File  menu 
o  Print  menu 
Q  Get  Block 
o  Put  block 


SF31 :-SF3 ,0pCs-ll , 1 ,0 ,pCs-2, 5 .OpDs-’ Unable  to  save  as  ' ,N 
SF32:-SCREEN ,0pCs<-\  \  ,1 ,0 ,pCs*-2,5 ,0pDs<-'  Nothing  to  save’ 

Q 

SF4 .-(NewMat  "  )ISCREEN .NEW ,NEU  a  New  matrix 

QQQPQPPPPPQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQPQQQQQQQQQQ 

ANY:-( 0  GetEntry  DXF  It CHR) l SCREEN .RESTART  o  ENTER  /  ANY  other 

Ret:-((hAR>hMR)vhAOhMC)phhR\  a  key  pressed 

N-fMATLhAR.hAC] 

i(4MP[3 ;  AXC]  =2)/ 1  N<- .FromDays  N' 

-( 0  Get£ntry»W)iSCR££W, RESTART 
AARl:-(0  GetEntry  "  )ISCREEN .RESTART 
Q 

F6:-Scri .Bulk  o  Bulk  entry 

Q 


SF8 : - Recod el SCREEN , RESTART 


o  Recode 


Q 


CF7 :  -* (  ToggType  h AC)  ISCREEN ,  RESTART 


P  Cheinge  column  type 


Q 
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[136] 

[137] 

[138] 

[139] 

[140] 

[141] 

[142] 

[143] 

[144] 

[145] 

[146] 

[147] 

[148] 

[149] 

[150] 

[151] 

[152] 

[153] 

[154] 

[155] 

[156] 

[157] 

[158] 

[159] 

[160] 
[161] 
[162] 

[163] 

[164] 

[165] 

[166] 

[167] 

[168] 

[169] 

[170] 

[171] 

[172] 

[173] 

[174] 

[175] 


SF 1 
P 

SF5 

SF6 

CFS 


+SortlSCREEN , Scrl 


Q  Sort 


P  Toggle  col  labels 
Q  Toggle  row  labels 


-•RESTART,  MakeLabRow 
-  RESTART,  MakeLabCol 

-REST ART,  EdLab  P  Edit  col  labels 

QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ 

CurLe : -GoHor, A  CO- A  CO  LA  A  C*-l  T^AC-l  Q  Scrolling 

CurRi:-Gotfor, AC0^AC0f(AVC>(+/AtfP[l  2 ;  AACM  +  AMC|_AAC]  )-AMP[l  ;])xl 

CtlLe : -GoHor, (AAC  AC0)-1 r_l+AAC  ACO 

CtlRi : -GoHor , (AAC  ACO)-( 1+AMC) Ll+AAC  ACO 

Tab :  -  GoRor,  AC0*-AAC*-AMCL+/ (  A  VC+  AMP[  1 ;  ACO] )  >AMP[  1 ;  ] 

STa  b :  -  GoHor ,  ACO*-  A  AC- 1  T+/ (  AMP  [  1 ;  ACO] -A  WC)  >  AMP  [  1 ;  ] 

Horn  e :  -*  GoHor ,  A  A  O A  CO  1 

End: ACO^(ACOr((l+ASC-ADC)>(+/AMP[l  2; AAC-AMC+l]  )-AtfP[l  ;]  Hi) 

GoHor:  i(A0C*AC0)/  '  -Scrl ,  DISB^-PorShif t 1 
- SCREEN 


p 

CurDp: -Go Ver,  ARO-AROLAAR*-1  ["AAR-l 
CurDn  :  -GoVer,  ARO*-AROfl-AJ/R-AAR«-l+AMRLAAR 
PgUp.-GoVer,  (AAR  AR0)*-1  fl-AtfR-AAR  ARO 
PgDn : AAR-( 1+AMR) |_AAR+AVR-1 
-GoVer,AR0M  KARO+AtfR-l)  [AMR-AJ/R-2 
CtlDp: -CoVer,  (AAR  AROHl  f”l+AAR  A RO 
CtlDn:-GoVer, (AAR  AR0)-1 +AMRL4AR  aro 
CtlRo/ne:  -GoVer,  AAR*-AR0M 
CtlEnd  :  AROAROf"  1-A  tfR-AAR*-AMR+ 1 
Go  Ver :  i( A0R*AR0)/ '  -  Scrl ,  DISL-  VerSMf  t  ’ 
-SCREE// 


p 

CL 

Q 

AltRi 

AltLe 

AltUp 

AltDo 


Loca t ei SCREEN , Scrl 


p  Goto  field 


-4(1  +  2=DA 1C  ' DFLAG' )o' Key'  ' 0,RC*-1 '  q  Alt-cursor 

-i(l+2=D NC  ' DFLAG' )o' Key'  '0 ,RC*~1'  P  valid  for 

-i(l+2=D NC  ' DFLAG' )o' Key'  ,0,RC-”2'  D  draftsmen 

-A(1+2=D NC  ' DFLAG' )o' Key'  '0 ,RC-2'  o  only 

QQDQQQQQQQQQQQDQQQQQQQQQQQQDQQQQQQQQQOQDQQQDQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ 

BSP :  P  N-UWE 
P 

CF6 : 


■* Key 


P  Intentional  error  for  debugging 
P  Currently  unused,  but  defined  label 


[  0]  M*-R  AddLabel  C;Mmat;Matt 

[  1]  p 

[  2]  P  Returns  (/nat  attr),  a  submatrices  of  MAT  and  A MA  consisting  of 
[  3]  p  rovs  R  and  columns  C,  with  row/column  labels  appended 
[  4]  P 

[  5]  (Mmat  Matt)*- (MATlR ;  C]  )  (8 1 AMA  [R;  C]  ) 

[  6]  a(A(/C>6)/  1  (Mmat  Matt)  *-(ALC[R]  ,Mmat)  (0,Matt)  1 

[  7]  *( A(/R=3)/  1  (M/nat  Matt)*-(((( ADC>6)/ALS)  ,  ALR[C]  )  ,  [l]M/nat)(0 ,  [l]Matt) 
[  8]  M*-Mmat  Matt 
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[  0]  X  Ass  Y 

l  1]  o 

[  2]  Q  Emulate  X-~Y 

[  3]  a 

[  4]  MAT[X[1]  ;X[2]]*-cy 


[  0]  RC-P  BackLabel  Hmat;R;C;SLR 

[  1]  o 

[  2]  Q  Write  submatrix  Mmat  back  into  MAT[R;C]  ,  P=R,C;  RC:  always  1 
[  3]  Q  First  row/ column  may  belong  to  label  vectors 
L  4]  0 

[  5]  Cs-2 , 5 , OpDs- '  WorJcing  .  .  .  '  ,0pCs*-7 ,5(0pDs(-AC[2;  18] 

[  6]  SLR*- c '  ' 

[  7]  (R  C)-P 

[  8]  i(Al/R=3)/'(Mmat  SLR)-(  H  [1]  Mmat)  (Mmat  [1 ;])  ’ 

[  9]  -(Al/C=6)pA2 

[  10]  (SLR  ALS)-(USLR)(1TSLR) 

[  11]  ALC[R]-Mmat[;l] 

[  12]  Mmat-ll [2]Mmat 
[  13]  A2:i(Al/R=3)/’ALR[C]-SLR' 

[  14]  MAT[R;C]-Mma  t 
[  15]  RC-CFLAG-1 


[  0] 
[  1] 
[  2] 
C  3] 
[  4] 
C  5] 
[  6] 
[  7] 
[  8] 
[  9] 
C  10] 
[  11] 
C  12] 

C  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
C  20] 
C  21] 
[  22] 
C  23] 
C  24] 
C  25] 
C  26] 

C  27] 
[  28] 
C  29] 


ROBulJr;  S 
Q 

0  Bulk  entry  mode.  Enter  new  values  into  successive  fields, 

Q  creating  new  rows/columns  if  necessary .  RC  dummy 
a 

s-o 

Cs-11 ,1 ,0pCs-2,5 ,0pDs-’ Row-  or  columnwise  (R/C) 

-(a/67  99  82  114*K-ltDs,0pCs-3(l)/DLC 
-(67  99  82  114=K)/A21(A21(All,All 

0 

Q  Rowwise 
0 

All : RC-ACO-AAC-InsRow  Q  Insert 

Al2:Cs*-4 ,3 ,OpDs-DISB-HorShift  Q  Adjust 

A 13  :  Cs-7 ,8  ,OpDs,-DISA>-MakeDisA 
Cs-2 , 8 , OpDs-DISP-MakeDisP 
ShowCell 

-(1  GetEntry  ’’)1A14  q  Get  new  value 

4(amC<aaC-aaC+1)/’-a11  ,AR0"AR0r(AUR-ASR-4)+A>(R'-4>lR+l  ’  o  New  line 

-(A0C=AC0-AC0r((l+ASC-Al/C)>&MP[l;A*c+l]-AMP[l;]Hl)lAl2(Al3  a  Next  cell 

Al4:4(AAC=l)/’[]WA,-De2Rotf  AAR’  Q  Exit,  delete  row  if  empty 

-a30 

0 

Q  Columnwise 
Q 

A20 :  Cs-2 , 8  ^pDs-DISP-HakeDisP 

A21  :-(RC-InsCo2)lA25  Q  Insert  empty  col,  go  to  row  1 

ARO-AAR-S-1 

A22 :  Cs"4 ,2 ,OpDs>-DISL>-VerShift  Q  Adjust  display 

A23 : Cs-7 ,8 ,OpDs-DISA-MakeDisA 


? 1 

0  get  answer 
Q  cols=All,  rovs=A21 


empty  row,  go  to  column  1 
display 
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[  30]  Cs*-2 , 8 ,  OpDs>-DISP>-MakeDisP 

[  31]  ShowCell 
[  32]  -(1  GetEntry  ' ')1A24 

[  33]  a(AMR<AAR-AAR+1)/'-a20,AAOAAC+1 ' 
[  34]  -.(A0R=AR0‘-AR0ri-AI»'R-AAR)lA22,A23 

[  35]  A24:*(AAR=l)/,DVA-0elCol  AAC' 

[  36]  -*A30 

[  37]  A25:-S10 

[  38]  (AAR  AAC)-(AAR  AAC)-1 
[  39]  Q 

[  40]  A30: Refresh 
[  41]  DISB-HorShift 


o  Get  new  value 
Q  New  column 
o  Next  cell 

Q  Exit,  delete  column  if  empty 


Q  Update  the  matrix 


[  0]  0-0  CHISQ  X ;  S ;  U ;  Cl ;  C2 ;  C3 ;  N ;  V 

[  1]  Q  Original  program  by  Prof.  H.  Larson;  modified  for  APL2 

[  2]  Q  12/3/86  Accurate  and  fast  evaluation  of  the  cdf  for  the  Chi  Square  cdf , 

[  3]  Q  at  vector  X,  D  df.  For  D  =  1  or  2,  the  normal  ( GAUS )  and  exponential 

[  4]  Q  distributions  are  used,  respectively .  For  D> 2  and  odd,  the  Lau  sum, 

[  5]  Q  Applied  Statistics ,  v29,  1980,  pll3,  algorithm  147,  is  used,  which  ap- 

[  6]  Q  pears  to  be  the  same  as  Abramowitz  and  Stegun,  p9 41,  26.4.6.  For  D> 2  and 

[  7]  Q  even,  Abramowitz  A  Stegun,  p941 ,  26.4.5,  is  used  selectively,  depending 

[  8]  Q  on  D  and  IYX;  for  certain  combinations  the  Lau  sum  is  again  used. 

[  9]  Q 

[  10]  — ( D= 1  2)/Al,A2 

[  11]  S-(X-D)*(2x0)*0.5 

[  12]  0-(p,X)pl 

[  13]  Cl-( (6.9x0*0.44) 

[  14]  C2-((r/S)<0)x((D<70),0>70)/5  7 

[  15]  C3-((r/S)>0)xL((D<200) ,D>200)/2. 5  3.1x90 

[  16]  -(2lD)/0dd 

[  17]  -•(  (  ( W*-C1  +  f  (  T/S)  x  (C3+C2)  )<”  1+0+2 )v(D>208) ) /Even 

[  18]  -0,pU-l-(*-X+2)xl++/((,X)o.*x(D-2)+2)*x\((P(X)p0)o.+2xx(D-2)+2 

[  19]  0dd:JV-Cl+r(r/S)x(C2+C3) 

[  20]  V*-(*-X+2)x+/x\i ,  (X+2)°  .+(D+2)+xWf20 

[  21]  -0,pU-/x((2xX+ol)*0.5)xx/Xo.+(l+2x^(D-l)+2) 

[  22]  Even./-(*-X+2)x+/x\i((x+2)o.+(D+2)+xWr20 
[  23]  -0,pU-,/xx/(x+2)o.+xD+2 

[  24]  Al:-0,pU-"l+2xCAUSS  X*0.5 
[  25]  A2:U-l-*-X*2 


0] 

1] 

2] 

3] 

4] 

5] 

6] 

7] 

8] 

9] 

10] 

11] 

12] 


CLEAN 

a 

Q  Cleanup  workspace 
Q 

O' ' 

O'  1 
O'  2 
O' ' 

O' 

O' 

O’ 


Erase  all  functions  and  variables  which  ARE  part  of  UEdit1 
Erase  all  functions  and  variables  which  are  NOT  part  of  UEdit' 


«A3 


Type  anything  else  to  abort’ 

Your  choice:  1 

1  DEA  '-((1  2=*141(D)  ,  1  )/Al ,  A2 ,  A3  ' 
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[  13] 
[  14] 
[  15] 
[  16] 
[  17] 


&l:0WA*QEXitnl3 

-0,DEX:>Anl2 


Q 


A2:DWX-0£X^(Dtb"c[2]0AfL  2)~Anl2 
■*0 ,0EX^(Dtb"c[2]0NL  3)~&nl3 


a  Erase  all  functions/ variables 
o  which  are  part  of  UEd it 


a  Erase  all  functions/variables 
a  which  are  not  part  of  UEdit 


[  18]  D 

[  19]  A3: O’  Aborted' 


[  0]  CSVprep  I;R0W;C 

[  1]  a 

[  2]  Q  Create  CSV  vector  from  matrix/ label  vector  WMXT[I;]  ,  enclose 
[  3]  Q  elements  containing  commas  IN  o,  replace  by  and  append 

[  4]  Q  vector  as  nested  element  to  OUTHAT 

[  5]  a 

[  6]  Cs^.S.OpDs*-’  Preparing  line  1 ,(*!),'  of  ' ,*&MR+bUR- 2 

[  7]  ROWlC^^'Q'  ,~R0WlC<-(v/-'  ,'=ROW<-HMATlI  J)/xUpHHAt]  'Q' 

[  8]  R0Wi(.'-,=R0W)/xpR0y<-Ue'  , '  ,~i-R0W]<-'-‘ 

[  9]  OUTHAT-OUTMAT.cROW 


[  0]  ChgType  C0L;I;C 

[  1]  Q 

[  2]  n  Try  to  make  column  label  numeric,  otherwise  change  matrix  column 

[  3]  Q  to  character  type. 

[  4]  Q 

[5]  ”  QEA  ’-0 ,hLR[C0L]-iC0LHLR' 

[  6]  □VX-'C'  ToggType  COL 

[  7]  NoNum'-NoNum.COL 


[  0]  ClearUL 

[  1]  a 

[  2]  Q  Display  1  upper  left  screen  corner' 

[  3]  a 

[  4]  Cs*-1 , 10 ,0pDs-l ,  1 ,  (“1+Al/R,  A(/C)  ,2 ,  AC[l ;  16] 

[  5]  Cs*-4, 10,0pDs‘-((Al/C+4)pl  '),,:>ALS 

[  6]  Cs*-1 , 10 ,0pDs*-l  ,1,1 ,3 ,2 ,  AC[2 ;  16] 

[  7]  Cs-4,10,0pDs-AyL 


[  0]  RC,-Command;R;Rl  ;C;CHD 

[  1]  n 

[  2]  n  Enter  and  execute  user's  APL  commemds;  RC:  1  -  excuted,  0  -  escape 

[  3]  n 

[  4]  CMD *■ '  ' 

[  5]  A1:R-' [’ ,(*AXR),' ,(*AXC),’] ' 

[  6]  CMD>-CMD  Input  'Enter  APL  commands  (  a  =  1  ,0RIG,R,'  ,  u  =  tagged  area  )' 

[  7]  -(27= It CMD) pRC-0 

[  8]  Q 

[  9]  Cs<-2 , 5 , OpDs*- 1  Executing  .  .  .  '  ,0pCs*-7 ,5 ,0pDs<-AC[2 ;  18] 

[  10]  CMD)-(v\CMDt‘  ')/CMD  a  Drop  leading  blanks 

[  11]  CHD-('aMAT'  ,R) Replace  CMD  Q  Replace  a 

[  12]  -( ’u' €CMD)1a2  q  Check  for  u 

[  13]  -(0=llpR*-l+(pAMX)T'l+(8<,AMX)/xp, AMX)pA£  Q  area  marked  ? 


Q  Prepare  indices 
Q  Replace  <j  in  1  iCMD 
Q  ->  Normal  execution 


[  19]  '-a£'  DEA  '  CMD**±(  1  +  +/a\CMD^  '  1  ' 

[  20]  1  -*AE'  DEA  'HI  Ass'CMD' 

[  21]  Q  CMD**±(  1  ++/a\CMD^  1  ♦- 1 )  ICAfD 
[  22]  Q  HI  Ass"CMD 
[  23]  -«A3 

[  24]  Q  formal  execution 
[  25]  a2: '-aE'  DEA  '  kCMD' 

[  26]  Q  A2 :*CMD 
[  27]  Q 

[  28]  A3:-AOOAOH-TO,CFL>IC^RC-1 
[  29]  Q 

[  30]  aE:  -«Al  ,0pCs*-l  1 , 1 ,0pCs*-2 ,5,0pDs*-' 


feature 

Q  These  two  lines  are  for 
Q  the  ‘production  version' 
Q  Use  these  two  lines 
Q  for  debugging 

Q  Production  version 
p  Debugging  version 


Invalid  command 1 


[  14]  R-c-Rl<-c[l]R 

[  15]  CHD-CHD[1]  ,  (  1 u(Ro"cHAT) 1  )Replace  11CHD 
[  16]  -(,w’?‘CMD[l])p62 

[  17]  Q 

[  18]  Q  Work  around  the  missing  'selective  assignment 

) 1 CHD ' 


[  0]  0HAT-CompBlock;0LR;R;C 

[  1]  Q 

[  2]  Q  Return  marked  block  with  column  and  row  labels  appended  if  they  exist 

[  3]  Q 

[  4]  ±(  (xO)=R-  (v/&HA>8)  /x&HR)  / 1  -<0 ,  OHAT- .  Q  marked  rows 

[  5]  C-(v/&HA>8)/xhHC  Q  marked  columns 

[  6]  (OHAT  0LR)-HAT{.R;flhLR 

[  7]  t(&UC>6) / ' (OHAT  OLR  C)-(&LC[R] ,0HAT) (&LS ,0LR) (1  ,C+1) 1  a  add  row  labels 

[  8]  a(&UR=3)/'0MAT-0LR[C] , [l]0HAT'  Q  add  column  labels 


[  0]  OHAT-CompHat  HAT;0LR 

t  1]  a 

[  2]  Q  He turn  HAT  with  column  and  row  labels  appended  if  they  exist 

[  3]  Q 

[  4]  ( OHAT  OLR) -HAT  &LR 

[  5]  i.(&UC>6)  / 1  (OHAT  0LR)-(t±LC  ,0HAT)  (&LS,0LR)' 

[  6]  i(A(/R=3)/  1  OHAT-OLR ,  [l]  OHAT1 


[  0]  RC-CopyHove  FLAG-,R)C-,K-,A 

[  1]  a 

[  2]  Q  Copy  or  move  columns/rows  to  cursor  position 
[  3]  Q  FLAG:  1 -copy,  0 -move  RC:  1-ok,  0-error 
[  4]  Q 

[  5]  -t((xO)=R-(v/hHA>8) /\ltp&HA)pCiE2  Q  rows  with  marks 

[  6]  -*(0=a/,A>M[R;O(v/A>m>8)  AllpAMX]>8)pA£l  a  columns  with  marks 

[  7]  Cs-2,5,0pDs-'  Working  . . . ' ,0pCs-7 ,5,0pDs-AC[2 ; 18] 

[  8]  -*(AMR  AMC=(pR)  ,pC)/A2,Al 

[  9]  a 

[  10]  a£1 :-*a£0 ,HSG- 1  Unable  to  copy/move  rows  and  columns  simultaneously' 

[11]  &E2:HSG-’ No  rows  or  columns  highlighted' 

[  12]  A£0;-RC-0,0pCs-ll,l,0pCs-2,5,0pDs-MSG 
[  13]  Q 

[  14]  Al • K-( (AAR-1) TxQHR) ,R, (AXR-1 )lx&HR  Q  Copy/move  rows 

[  15]  A-R+(pR)*R>AAR 
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[  16]  i(~FL4G)/'K-K[(xpK)~yl] ' 

[  17]  ( MAT  AMA  ADM  ADA  ALC)<-(MAUK;])(AMA[K;1)(ADM[K;])(ADA[K;1)(ALC[K]) 

[  18]  -FLAGl All 
[  19]  AMX  [>l ;  ]  -8  I AMX  Cj4  ;  ] 

[  20]  ADAZA;]-(-ll2+AHPZ2;l)/nAF  AC[1 ; l+AMXCX;]] 

[  21]  All:AMR-TpK 
[  22]  DISL-VerShift 
[  23]  -0.RC-CFL4G-1 

[  24]  0 

[  25]  A2:K-((A/»C-1)TxAMC),C,(A;4C-1)UAMC  o  Copy/move  columns 

[  26]  4-C+(pC)xC>A4C 

[27]  i(~FLAG)/'K>-/<[(zpK)~A]  ' 

[  28]  (MAT  AMA  ALR)'-(MATl,K])(AMAl,K])(ALRlK]) 

[  29]  (ADM  ADA  ACL  ACT)-(  ADM[ ;  R]  )  (AD4[ ;  R]  )  (ACL[;  R]  )  (ACr[R-€GC'  K]  ) 

[30]  AMP,-AMP[;  F]  ,0,3, 0,0,0 
[  31]  AMP[l;]-0,-U+\2+AMP[2;] 

[  32]  ->FLAGIA21 
[  33]  AM4[;4]-8|AM4[;4] 

[  34]  ADA[;6GC"A]-(2+AMP[2;A])/DAF  AC[l ; 1+AMA[;A]] 

[  35]  A21 : AMO-TpK 

[  36]  ACL[RC*-CFL4G-l,]-e(2+-UAWP[2;])T"(?”xAMC) 

[  37]  DISB-HorShift 


[  0]  RC-Cross ; RCM ; ORCM ; COL ; MSG ;PAR; Indl ; Ind2 ; (/nil ; Vni2 ;0(/nil ; 0Uni2 ;RI;I; RATT; 

ASP; MM; CM 

[  1]  O 

[  2]  o  Crosstabulation  of  two  matrix  columns;  RC:  1-  ok,  0  -  escape 

L  3]  o 
[  4]  COL- '  ' 

[  5]  Al :  -*(27=  It  COL*- COL  Input  'Enter  column  numbers' )pRC-0 

[  6]  ,-*aE1’  QER  ,-(2?pCOL>-±COL)pAE2‘  Q  must  be  numeric,  2  columns 

[  7]  -•(a/C0E€xAMC)1aE3  0  columns  must  exist 

[  8]  D 

[  9]  PAR-askApar" COL  0  Get  column  parameters 

[  10]  0 

[11]  I-'  1 

[  12]  a2:-*(27=1TI-I  Input  'conditioning  columns  ...  ?  (ENTER  if  none)')pO 
[  13]  i(I=,'  1  )/'-•  A3,p CM- /MT[;  COL]  1  0  empty:  no  condition 

[  14]  ->(27=lTRI-GetCond  I)pO  0  get  condition  vector 

[  15]  -,(“l  =  lTRI)pA2 

[  16]  -*(0=tpCW*-RJ/WAT[;  COL]  )pAE4  0  extract  matching  elts 

[  17]  a 

[  18]  A3:Cs-2,5,0pDs-'  Crosstabulating  . . . 1 ,0pCs-7,5,0pDs-AC[2; 18] 

[  19]  (Indl  (/nil)-((COL[l] ) (=PXR[l]  ))MakeIndex  CM[;1]  0  get  index/label 

[  20]  (Ind2  Uni2)>-((C0L[2])(^PAR[2] ))MakeIndex  CM[; 2]  Q  vectors 

[  21]  RI-Rl[ARI-Ind2+(Indl-l)xp(/ni2] 

[  22]  RCM-((pUnil) ,pUni2)pRI  freqAcnt(p(/nil)xp(/ni2  Q  RCM  -  cross  matrix 

[  23]  Q  Save  values  for  pooling 
[  24]  ORCM-RCM 

[  25]  OUnil-Unil 

[  26]  0Uni2-Uni2 

[  27]  0  Create  and  edit  cross  mat 

[  28]  k(MM-(GetTitle  C0L[l]  GetTitle  C0L[2]  ) , ' -CtPrep  RCM' 

[  29]  QUA-USER  MM 
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[  30]  -0.RC-1 

[  31]  Q 

[  32]  Q  Error  handling 

[  33]  hEl  :-'&EO , MSG-'  Input  must  be  a  numeric  vector' 

[  34]  AE2:-*a£0  ,  MSG-'  Specify  2  columns,  please’ 

[  35]  &E3:MSG-' Non  existing  column  number  specified' 

[  36]  A£0:-*M  ,0pCs*-ll  ,1 ,0pCs-2  ,S  ,0pDs-MSG 

[  37]  &E4  :-*A2,0pCs,-l  1 , 1 ,0pCs*-2 ,5 ,0pDs- '  Nothing  left  to  count  !?!?' 


[  0] 
[  1] 
[  2] 
[  3] 
C  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 


CM-CtPrep  R; E;S ;X ;D; BL; RT;C;R1 ;CHI 

D 

Q  Create  cross  matrix  CM,  attribute  matrix  RATT 

D 


E-((+/R)° .*+/R)+RT-+/+/R 
S-(R~E)+E*0 .5 
*-+/+/( (R-E) *2) +E 
I>-(_l+pUnil)x_l+pUni2 
-*(D=0)pAl  ,CHI-MISSbN 
CHI-l-D  CHISQ  X 

D 

Q  Generate  display  matrices 
o 


o  E  -  expected  frequencies 
o  S  -  standardized  residuals 
d  X  -  chi-square 
d  D  -  degrees  of  freedom 
Q  If  D> 0 

Q  CHI  -  p-level 


'  ),(l  +  -lTpR)ptfISSAtf 

C-llpCM-(l  ,2+pUni2)p(  '  ' ) ,  (*"l/ni2)  , o' total' 

Rl-3xpUnil 

CM- CM,  [1]  (R1  ,C)p(*"(Jnil)  ,R,(+/R)  ,(9"Unil)  ,(S)  ,  ((+/R)+RT) ,  ((plfnil) ,  C)pBL 

RATT-(Rl,C-l)p(((pUnil) ,C-2)pO) ,6,(1++/1.96  2. 54°. SIS) ,0, ((p(/nil) ,C-l)pO 

CM-CM, [1] (c ' total ’ ) ,(+/R) ,RT 

CM-CM,  [1]  (c '  column  +'),( <+/R)  +RT) , MISSbN 

CM-CM, [1] BL 

CM-CM,  [1]  (c'd.o.f .  '),D,(-UpR)pMISShN 
CM-CM,  [1]  (<='  Chi-sq' )  ,X,  CltpR)pWISSa// 

CM-CM,  [1]  (c '  signif'  )  ,CHI,  ClTp/OpWISSAiV 
RA TT-RA TT,  [ l]  6 ,  [  1]  ( 5 ,  C- 1 ) pO 

&SP-1 , [0 . 5] (-lTpRA7T)p2  Q  2  decimals  by  default 


[  0]  RC-DelCol  C,N 

[  1]  0 

[  2]  o  Delete  columns  indexed  by  C;  RC  dummy 

[  3]  Q 

[  4]  Cs*-2 , 5 , OpDs*- 1  Working  .  .  .  '  ,0pCs-7 ,5,0pDs-AC[2;  18] 

[  5]  (ALR  MAT  &MA)-(ALR[C])  (MAT[;C])  (&MA[;  C-(x&MC)~C]  ) 

[  6]  (ADM  ADA)-(aDW[;R])(ADA[;fl-eG<rc]) 

[  7]  (ACL  ACT  AAC)-(aCL[;fl])(acr[R])(a/tCLAMC-Tp,C) 

[  8]  ACO-ACOLAMC 

[  9]  &MP-&MPC ;C] ,0,3, 0,0,0 

[  10]  &MP[RC-CFLAG-1 ;]  *-0 ,  ”ll+\2+AWP[2 ;] 

[  11]  4CL[l  ;]*-e(2+-UAMP[2;]  )T"5“xAMC 
[  12]  DISB-HorShift 
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[  0]  RC'-DelRow  N;K 

C  1]  Q 

[  2]  Q  Delete  rows  indexed  by  N ;  RC  dummy 

C  3]  Q 

[  4]  Cs-2 , 5 , OpDs- '  Working  . . . 1 ,0pCs-7,5,0pDs-AC[2;18] 

C  5]  (ALC  AMA  ADA  ADM  MAT)<-(ALC[N]  )  (AMA[N;]  )(ADA[N;J  )  (ADM[N;J  )  (MAT[N-(xAMR)~N;]  ) 
[  6]  RC-CFL4G-T1  ,AAR-AAR\AMR<-Xp,N 

[  7]  ARO-ARO\_AMR 

[  8]  DISL-VerShift 


C  0] 
C  1] 
C  2] 
[  3] 

[  4] 

[  5] 

[  6] 
[  7] 

[  8] 
[  9] 

[  10] 
[  11] 
[  12] 


W'-DisCol;N 

a 

a  Convert  matrix  column  to  character  type  for  display 
Q  Update  width  entry  in  parameter  matrix  AMP 
o  W  column  width 

Q  C,COL  column  number,  converted  column  ( global ) 

Q 


-(Al,A2,A3)[l+4MP[3;C]] 
Al:-A4,pC0L-(_2Tl(pC0L)pC0L-:>M>ir[;C] 
A1 :-A4,pC0L-(2T(pC0L) ,  l)pC0L-=M>lT[;  C] 
A2:-A4,pCOL-ArumroC)]ar  Wy»T[;C] 
a3 : COL-FromDays  MAT[;C] 

A4:  V-2+AtfP[2 ; C] -3  f (tpC^ALR) f'ltp COL 


Q  Character  column 
o  Character  column 
a  numeric  column 
o  date  column 
o  column  width 


[  0]  RC*-Draft;RCM;ORCM;COL;MSG;PAR;IU;LIl;LI2;LUl;LU2;Indl ; Ind2; Unil ; OUnil ;Uni2; 

OUn i2 ; LR ; RI ; RATT ; DFLAG ; PAR ; Cl ;C2; TOT; ASP; MM 

[  1]  Q 

[  2]  Q  Crosstabulation  of  multiple  matrix  columns;  RC:  1  -  ok,  0  -  escape 

[  3]  o 

[  4]  COL- ' ' 

[  5]  Al :-•( 27= It COL-COL  Input  ' Enter  column  numbers  -  ENTER  for  aIl')pRC-0 

[  6]  4(C0L=, 1  ')/' COL-JxAMC 1 

[  7]  '-AEl1  DEd  l-*(2>pC0L-iC0L)pAE2'  Q  must  be  numeric,  >  2  columns 

[  8]  -(A/C0L€x-ltpMADlAE3  o  columns  must  exist 

[  9]  o 

[  10]  A2:  PAR<-askApar"  COL  o  Get  classific.  parameters 

[  11]  Q 

[  12]  Cs-2,5,0pDs-‘  Crosstabulating  . . . 1 ,0pCs-7 ,5 ,0pDs-AC[2 ; 18] 

[  13]  LR-(TOT,TOT-~l+TpCOL)pCl-0 
[  14]  IU-3(COL, ~c" PAR) Makelndex~ o [lj MAT[ ; COLj 
[  15]  (LI1  LI2)-(-UIU[;l])(UIt/[;l]) 

[  16]  (LU1  LU2)-(*)(TOT,TOT)p-llIU[;2])((TOT,TOT)pllIU[;2]) 

[  17]  A3:-(T0r<Cl-l+C2-Cl)pA5 
[  18]  (Ind 1  Unil)-3"LI1[C1]L01[C1;1] 

[  19]  A4:-(T0r<C2-C2+l)pA3 
[  20]  (Ind 2  Uni2)-="LI2[C2]LU2[1;C2] 

[  21]  RI-RI[ARI-Ind2+(Indl-l)xpUni2] 

[  22]  -*A4,LR[C1  ;C2]-c((pUnil)  ,pUni2)pRI  freqAcnt(pUnil)*pUni2 

[  23]  Q 

[  24]  Q  Display  tables,  use  Alt-Cursor  for  scrolling 
[  25]  A5 : C1-C2-DFL/G-RC-1 

[  26]  A6 :  (ORCM  OUnil  OUni2)<-(RCM  Unil  Uni2)-i~LR[Cl;C2]LUl[Cl;C2]LU2[Cl;C2] 

[  27]  i(MM-(GetTitle  C0L[Cl] ) , 1 , GetTitle  COL [1 + C2] ), ‘-Ct Prep  RCM1 
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[  28]  DFLAG-USER  MM 
[29]  LRlCl ;C2]-cRCM 
[  30]  L(/l[Cl;C2]-c(/nii 
[  31]  LU2 [Cl ; C2]  -cUni2 

[  32]  ->(DFLAG= 0  1  _1  2  ~2)/0 ,&Ri,ALe,&Do,hUp 
[  33]  ARi:-A6,C2-rorlC2+l 
[  34]  ALe:-*A6,C2-CirC2-l 
[  35]  ADo:-*A6,Cl-C2lCl+l 
[  36]  A(/p:-A6,Cl-ircl-l 
[  37]  d 

[  38]  D  Error  handling 

[  39]  aEl  :-,AE0 , MSG*- 1  Input  must  be  a  numeric  vector' 

[  40]  aE2 : ->a£0 , MSG1- 1  Specify  more  than  2  columns,  please' 
[  41]  &E3:MSG*' Non  existing  column  number  specified1 
[  42]  AE0:->M  ,0pCs*-ll ,  1 ,0pCs<-2  ,S,0pDs<-MSG 


[  0]  Z-Dtb  X 

[  1]  o 

[  2]  Q  Drop  trailing  blanks  from  an  array  X 

[  3]  a 

[  4]  z-a-ppxm/arpzjtz-.i-u^  ')u)u 


[  0]  RC'-EdLab;W;N 

[  1]  o 

[  2]  o  Edit  column  labels  in  bulk  mode ;  RC  dummy 

[  3]  Q 

[  4]  AWb-ASR-3+AyR*-2+AAC*-AC0-RC-l 

[  5]  nl:DISB-HorShift 

[  6]  Cs-7 ,8 ,OpDs-(DISA>-MakeDisA)  ,0pCs*-l  ,8  ,OpDs,-bUR,bUC,bWR,bWC  ,2,&C[1 ;  l] 

[  7]  Cs*-2 , 8 ,  OpDs-DISP-MakeDisP 

[  8]  JV*-£yc+W[l;£AC]-£tfp[i;acO] 

[  9]  Cs-l,l,0pDs-l,W,2,(l+ASC-A0  I.AMP[2;AAC]  ,2,AC[l;16] 

[  10]  Cs-7,l,0pDs-AC[2;16] 

[  11]  Q 

[  12]  -•(27=ltN,-(&AC2&LR) Input  'Enter  new  label  for  column  '  ,*AAC)pa2 

[  13]  ALR[AAC]-ctf 

[  14]  4CL[2;4WP[1  ;4AC]+%(/]-(W-PlaceEntry  *AC)XN 

[  15]  k(*MC>*A(yhAC+l)/,-&l,*C&-hCO[(.hWC>(,+/*MPll  2 ;  AAC]  )  -AMP  [  1 ;  ]  )  x  1 ' 

[  16]  AAC-AAC-1 
[  17]  L2 :  a(£ACA  1 )/ 1  CFLAG*-1 ' 


[  0]  RC-FreqTa b;CLR;COL;I;UNI;R ; MSG ;ELab;PAR;  CUM;  REL;ASP;RATT;FM;MM;RI 

[  1]  O 

[  2]  Q  Frequency  counts  on  a  specified  matrix  column 

[  3]  o  RC:  1  -  ok,  0  -  escape 

[  4]  n 

[  5]  -*(27=  It COL>-askhcol  'Enter  column  number' ) pRC-0 

[  6]  -•  ( COL= , 1  ')p0 

[  7]  a 

[  8]  -*(27=ltPAR*-asJcapar  COL) pO  Q  Get  classific .  parameters 

[  9]  a 

[  10]  Q  Conditional  freq  tabs  ? 
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[  11]  I*-" 

[  12]  A1  :-*(27=ltI-I  Input  1  conditioning  columns  ...  ?  (ENTER  if  none) '  )pO 
[  13]  *(!=,'  '  )/'-*A2, OpI-MAT[; COL]  '  Q  Empty:  no  condition 

[  14]  -*(27=lTRI-GetCond  I)pO  Q  Get  condition 

[  15]  ■4(_l=ltRJ)pAl 

[  16]  -»(0=pI-RI/>Mr[;COL]  )pA£l  0  Extract  matching  elements 

L  17]  a 

[  18]  Q  Now  I  is  the  vector  to  perform  the  frequency  count  on 
[  19]  Q  PAR  holds  the  classification  parameters  if  I  is  numeric 
[  20]  Q 

[  21]  A2: Cs-2,5,0pDs-'  Counting  . .  .  '  ,0pCs-7,5,0pDs-AC[2;  18] 

[  22]  (R  UNI)*-(C0L  PAR)HakeIndex  I  0  create  index  vector  and  labels 

[  23]  C0M-+\R-R[AR]  freqhcntpUNI  a  cumulative/distinct  frequencies 

[  24]  R£L-R+pI  Q  relative  frequencies 

[  25]  0 

[  26]  Q  Prepare  matrix  display  FH,  and  call  USER  recursive 
[27]  FM-1  5p('  ' ) ( 'Freq' )(,Rel. ' )( 'Cun.  ’) ('  ') 

[  28]  FM-FM,  [l]!s(5,pR)plWI,R,R£L,a/M,((Rx40>^/R)  +  ^Rx(40<^/R)x40•!-^/R)p”,|, 

[  29]  FM-FM,  [l]C  ' ) ,  (3pMISSAM) , '  ' 

[  30]  FM-FM,  [1]  (c 1  total' ) ,  (+/ R) ,  (2pHISSnN)  , 1  ' 

[  31]  RA7T*-(-l+pFM)p0 
[  32]  ASP-2  4pl, 1,1, 0,99,2, 99, 99 
[  33]  *(MM-'FR_'  .GetTitle  COD.'-FM ' 

[  34]  QWA-USER  MM 
[  35]  -*0 ,  RC-1 

[  36]  Q 

[  37]  o  Error  handling 

[  38]  a£1  :-*Al  ,0pCs-l  1 , 1 ,  OpCs-2 ,5,  OpDs- 1  Nothing  left  to  count  !?!?' 


[  0]  YHEh-FromDays  DAYS-,D;H;Y;D1;Y1,I;W 

[  1]  a 

[  2]  Q  Convert  days  since  02/29/0000  to  date  array  ‘ HH-DD-YYYY'  or  similar 

[  3]  a  format  according  to  DATE;  sets  MISShN  to  1  1 

[  4]  a 

[  5]  DAYSlW-(MISSnN=DAYS)/xpDAYS>-,  [DAyS]-l 

[  6]  Dl-DXyS-(365*y)+-/L(y-LDAyS-i-365.2425)o.+4  100  400 

[  7]  -*(xpl-(Dl>366)  ApDl  )1A1 

[  8]  Di[i]-Dxys[i]-(365xyi)+-/L(yi-y[i]-y[i]+i)o.44  100  400 

[  9]  Al :  -‘(xpj— (Dl<0)/xpDl )  1 A2 

[  10]  Dl[I]-D>iys[I]-(365xyi)+-/L(yi»-y[l]-7[I]-l)0.-!-4  100  400 

[  11]  A2:M-(31  30  31  30  31  31  30  31  30  31  31  29/2<Hl2) [01] 

[  12]  D-Dl-(306  337  0  31  61  92  122  153  184  214  245  275) [M] 

[  13]  yMD-(-U€((3,l,l)[DRr£]p"'0,),"c'6-’)»((y+M<2)  ,  M,  [1 .5]D)  [;DAT£] 

[  14]  yMD[W;]-'  1 


[  0]  Z*-GAUSS  X;A;B;C;D 

[  l]  O  Orig.  program  by  Prof.  H.  Larson;  modified  for  APL1 

[  2]  O  Evaluates  normal  cdf  at  vector  X.  For  IX<4,  26.2.11  in  Abramowitz  and 
[  3]  Q  Stegun,  p.  932,  is  used.  For  large  X,  the  continued  fraction  in  Nall, 

[  4]  Q  p.  357,  92.11,  is  used  at  depth  16.  Appears  to  give  at  least  13  signi- 

[  5]  Q  ficant  figures. 

[  6]  Q 

[  7]  -*(  (p  ,  A-(  I  X<4)/Z-X-,X)=p  ,X)/1+DLC 


[  8]  B-( \X>4)/X 

[  9]  -((p,B)=pX)/BIG 

[  10]  >l-0.5+(  +  ((*>(*2)xO2)*0.5)x+/((>(o.*-l+2xxC+l)-!-((p>O  , C+l )p*\'l+2*x(C<-10 

rnoxr/u)+i) 

[  11]  Z[(U<4)ApX]-Jl 

[  12]  *((p,A)=pX)/0 

[  13]  BIG: 016589790  56295540  52050600  19934640  3680160  341952  15232  256 
[  14]  D-2027025  32432400  75675600  60540480  21621600  3843840  349440  15360  256 

[  15]  B-l-(B-*-2x((o2)x*B*2)*0.5)x(+/((0.5x,B*2)o.*0(x7)x((p>B)  ,8)pC)++/( (0 ,5x  , 

B*2)o.*0,x8)x((p,B) ,  9)pD 
[  16]  Z[(|X>4)ApX]-B 


[  0]  R-GC  C 

[  1]  o 

[  2]  Q  Return  a  vector  of  display  column  numbers  corresponding 
[  3]  Q  to  matrix  column  C;  called  always  with 
[  4]  Q 

[  5]  R-AMPLl  ;C]+x2+AMP[2;C] 


[  0]  BOGSout ;  FILE ;  COL 

[  1]  0 

[  2]  Q  Export  matrix  column  to  an  APL2  vector  (numeric  column )  or  a 

[  3]  Q  character  matrix  (character  column)  for  use  with  GRAFSTAT 

[  4]  Q  RC:  always  0 

[  5]  Q 

[  6]  -*(27=  It COL-askhcol  'Enter  column  number  to  export'  )pROO 

[  7]  -  ( C0L= , '  ')p0 

[  8]  a 

[  9]  FILE - ' ' 

[  10]  Al : -*(27=1 T FILE-FILE  Input  'Enter  the  name  of  the  vector/ matrix' )p0 
[  11]  -(OfDWC  FILE)pbEr 
[  12]  tFILE, '  -=M>tr[ ;  COL]  1 
[  13]  -0 

[  14]  Q  Error  handling 

[  15]  AEr:  -Al  ,0pCs«-l  1 , 1 ,0  ,pCs<-2(5  (0pDs<- 1  Name  is  already  in  use' 


[  0]  RC<-GetBlock-,R;C-,N-,NHAT,K 

[  1]  Q 

[  2]  0  Insert  a  matrix  into  the  current  row  or  column  location 

[  3]  0  RC:  1  -  ok,  0  -  escape 

[  4]  Q 

[  5]  Al : -*(27=1 1 N>- 1  1  Input  'Enter  name  of  the  APL  matrix  to  insert'  )pftO-0 

[  6]  4(2jCWC  AO/'-Al,  0pCs-ll,l,0pCs<-2, 5,  OpDs*"No  matrix  ' V,  "  found'" 

[  7]  NMAT-V'kN 

[  8]  0 

[  9]  Cs«-ll  ,1  (0pCs«-2,5,0pDs'-1  insert  Rows,  Columns ,  Overlay  ( R/C/0 )  ?' 

[  10]  -(a/67  79  82  99  111  114/K-lTDs(0pCs-3, 1)/DLC 

[  11]  Cs*-2 , 5 , OpDs*- 1  Working  .  .  . 1 ,0pCs<-7,5(0pDs'-AC[2;  18] 

[  12]  RC-CFLAG-1 

[  13]  -(82  114  67  99  79  111=JD/a2,A2,A6,A6,A10,A10 

[  14]  0 

[  15]  0  Insert  rows,  a  vector  is  considered  a  l*(pV)  matrix 
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[  16]  A2:(R  C)*-pWMr*-(-2tl  ,pNHAT)pNHAT 
[  17]  AAC-ACO-1 

[  18]  i( AMC<C)/ 1 NHAT>-(.C>-hHC) t [2]  NHAT' 

[  19]  TryNum" (0*CTAMP[3;] )/xC 

[  20]  i(bMOC)/'NMAT-NMAT,  [2]  (R,  AtfC-C)p(MISSAJV,  "  ' '  )  [2-AMP[3 ;  (%AtfC)~xC]]  ' 
[  21]  A3:tfAr-((AAR-l)T[l]MAr),[l]m4r,  [l](AAR-l)i[l]MAr 
[  22]  AMA-((AAR-l)T[l]AMA),[l]((R,AtfC)pO),[l](AAR-l)i[l]AtfA 
[  23]  -(AGC=6)pO 

[  24]  ALC-((AAR-l)TALC),(Rp’  '),( AAR-1 )iALC 
[  25]  -*0 

[  26]  o 

[  27]  o  Insert  columns,  a  vector  is  considered  a  (pV)xl  matrix 
[  28]  A 6:(R  C)-pNHAT-(2t(pNMAT) ,l)pNHAT 
[  29]  4(AMR<R)/  1 -A7  ,pRMAT*-AMRT  [l]  NHAT' 

[  30]  i(AMR>R)/'NMAT-NMAT, [1]  (  (AMR-R)  ,  C)p(MISSAJV  ' ' ) [2-Ru m"NHAT[R;]] ’ 

[  31]  a7  :  WAT*-(X(AAC-l)t  [2]MAT)  ,  [2]  NMAT,  [2]  ( AAC-1 )i [2]  MAT 
[  32]  AWA*-((AAC-l)t[2]AWA),[2]((AM«,C)pO)([2](AAC-l)i[2]AMA 

[  33]  AWP<-  (  ( AAC-1 )  t  [2]  A  HP)  ,  [2]  ($(  C,  5)p0 , 0 , 0 , '  C'  ,  99)  ,  [2]  (  AAC-1 )  l  [2]  A  HP 
[  34]  -*(A(/fl=2)pO 

[  35]  ALfi-((AAC-l)tALR),(Cp'  ’), (AAC-1 )iALR 
[  36]  -0 

[  37]  Q 

[  38]  R  Overlay  block,  cursor  in  upper  left  corner,  vector  =  lxpV  matrix 
[  39]  A10:  (R  C)*-pNHAT>-(~2t  1  ,pNHAT)pNHAT 
[  40]  4(R>K*-1  +  AMR-AAR)/ 1 RMAr-KT  [1]  NHAT* 

[  41]  iCOlO-l+AMC-AAC)/ 1  C*-HpRMAT*-KT[2]  NMAT’ 

[  42]  TryNum"  ( (AAC-1 )i0fKTAtfP[3;] )/ (AAC-l)lxK*-AAC+C-l 
[  43]  MAT[_l+aAR+xtpArMAr;_l+AAC+xHpRMAl]-RMAT 


[  0]  Col*-CetColor 

[  1]  R 

[  2]  R  Get  color  attribute  for  row  or  column,  Col  *■  0  if  escape 

[  3]  R 

[  4]  A1 '  Col*~' '  Input  '  Enter  color  level  (0  ...  6  )' 

[  5]  4(27=  IT  Col)  / 1  -Col*-0 1 

[  6]  '-AE'  DEA  '-(0fppCol-4Col)pAE' 

[  7]  -(Col€0,x6)p0 

[  8]  R  Error  handling 

[  9]  AE:-Al  ,0pCs*-ll ,  1  )0pCs*-2,5,0pDs*-1  Input  must  be  €  [0,6]' 


[  0]  R-GetCond  I\MSG;K;L;N;V 


[ 

1] 

P 

[ 

2] 

P 

Get  conditioning  vector  for  FreqTabs , 

Cross Tabs,  i.e., 

[ 

3] 

P 

create  a  boolean  ' yes/ no*  of  rows  to 

include 

[ 

4] 

P 

R  -  27  =  Escape  pressed  -*  do  nothing 

[ 

5] 

P 

“1  =  Syntax  error  in  I 

[ 

6] 

P 

else  boolean  vector  indicating  matrix 

rovs  to  choose 

[ 

7] 

P 

[ 

8] 

P 

Parse  conditioning  vector 

[ 

9] 

-(a/I€ 1 0123456789 ()/~VAVA,  ' ) lAEl 

p 

all  symbols  valid  ? 

[ 

10] 

R-(K-L*-I)€' 0123456789' 

p 

extract  digit  positions 

[ 

11] 

K[(~A0ApK]*-'  ' 

p 

cancel  operators 

[ 

12] 

K-.4K 

p 

vector  of  numbers 
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[  13]  -(a/K€xAMC)1aE2 
[  14]  L[tfApL]-'l' 

[  15]  L-(M><0,-llAO/L 

[  16]  ’-AE1’  CJEA  '-(a/O  If *L)pA£l 1 

[  17]  0 

[  18]  (I  R)-l  27 
[  19]  Al:-(R=lTV-GetCrit  K[I])pO 
[20]  L[A'l']-c’('  ,(9V),  ’)’ 

[  21]  -((pK)>I-I+l)pAl 
[  22]  -0 ,R-€*€L 

[  23]  0 

[  24]  AE1  :->&EO ,  MSG-'  Syntax  error’ 

[  25]  &E2 : MSG- ’ Invalid  column  numbers 
[  26]  AEO:Cs-ll , 1 , 0pCs-2 , 5 ,0pDs-MSG 
[  27]  R-"l 


o  valid  column  numbers  ? 
p  all  digits  -  ’  1 1 
p  reduce  multiple  digits 
P  valid  relation  ? 


p  Get  criteria  for  each  vector 
P  Put  it  into  template 

p  Execute  template 


specified’ 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 
[  26] 
[  27] 
[  28] 
[  29] 
[  30] 
[  31] 


R-GetCrit  I;C;V;NOT;HSG 
P 

p  Get  conditioning  criteria  for  column  I 

P  R  -  27  =  Escape  pressed,  cancel  operation 

P  else  boolean  vector  indicating  matrix  rows  to  choose 

p 

y*. 1  1 

Al :  -•  (  (R*"27  )  =  1 T  V*- V  Input  'Enter  conditional  criteria  for  column  ' ,5l)p0 
*(V=,'  1 )/'-0 ,R-hMRpl '  P  empty  vector:  unconditioned 

V[( Vm ' " 1  )Ap V] - 1  p  1  p  Replace  "  by  o,  parse  vector,  c-elete 

V-Dtb~ (Parse  V) , " 1  1  P  trailing  blanks  of  each  element 

P 


R-hMRpNOT-O 

*(v[i]=c, )/’-(o=pv-(wor-i)iv)pO' 

p 

OMXr[;  I] 

-(1  2=AMP[3;I] )/A4,A3 
P 

-o,r-inot-c€V 

p 

A3 :  -•(  v/0=  V-€ToDays  ’  V)  1 A5 ,  AE3 

p 

A4:*((,'  ’)=6lO/'-A5,V-2p MISShN’ 

'-aE 1'  OEA  ’ 

A5:-(2lpV)pAE2 
V-((0.5*pV0 ,2)pV 

-0,R-IW0r-v/(V’[;l]o.<C)AV’[;2]o.>C 

P 

AEl:-AE0,MSG-’Limits  must  be  numerical' 
&E2:-,&E0 , MSG-'  Invalid  number  of  arguments’ 
&E3: MSG-' Invalid  date  specified' 
aEO  :-*Al  (0pCs*-l  1 , 1 ,  OpCs-2 , 5 ,  OpDs-MSG 


P  Check  for  NOT  condition 


p  Character  column 
p  Date  column 
P  Numeric  column 
p  Argument  pairs  only 
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[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 
[  26] 
[  27] 
[  28] 
[  29] 
[  30] 
[  31] 
[  32] 


RC-T  GetEntry  N,K;L;R 

Q 

Q  Enter  new  value  for  active  cell 
Q  T:  0  -  normal  entry  RC:  0  -  escape 

Q  1  -  bulk  mode  entry  1  -  ok 

a 

A 1 : -» ( 27=1  T W-W  Input  'Enter  new  value  for  active  cell1  )pROO 

Q 


AK'atfJirC'  , (*a*r) , '  ; 1  ,  (*A/(C) , ']  ')Replace  N 
-('w'€tf)4.62 

-(0=HpR-l  +  (pAM/OT-l+(8<,AM/OAp,AM/OpA2 
W-(’w((c"c[l]R)='cW/ir)  ’)Replace  N 

Q 

A2 :  *(AAR>AMR)/ ,□h^^-InsRol/, 
iCAAOAMO/’CM-InsCol  "C"' 
-(63,A4,A5)[1+AMP[3;A*C]] 


Q  replace  a 
Q  replace  u 


Q  add  new  row  ? 

Q  add  new  column  1 


A3 : -A6  ,M>irCA>lR;  AylC]  -ctf 

Q 

64 '  '  )/,-66,M/^r[A)^R;6/^C]-MISS6W, 
'-6£'  0 EA  ,-66,M/^r[A/^R;A/^C,]-iW, 


Q  character  input 
Q  numeric  input 


65  1 )/' -A6  ,MAT[AAR;AAC]  -MISS6W  Q  date  input 

-( 0=N>-ToDays  W)p6E 
MAT[6kR;  6^C]  -W 


P 

66:-HA7 

-68 ,  ADM[A*R ;  AMP[1 ;  A  AC]  +xAMP[2 ;  AAC]]-AMP[2 ;  AAC]  T?eMAr[AAR;  AAC] 
o 

67:DfrM-P2ace£ntry  6 AC 
68 : -0 , RC-  CFLA  G- 1 

Q 

6£:-6l  ,0pCs*-l  1 , 1 ,0pCs-2 ,5 ,0pDs- 1  Invalid  input 1 


Q  truncate 
o  if  bulk 
p  else 
p  adjust 


P  error 


[  0]  RO-GetFi  eldType ; TYP ;  DEC;  I ;  T 

[  1]  Q 

[  2]  P  Get  field  types  of  a  new  matrix 

[  3]  P  RC:  1  -  ok,  0  -  escape 

[  4]  P 

[5]  T-" 

[  6]  61 : r-T  Input  'Enter  field  types  (C/D/Nx/  Ex/  A)' 

[  7]  -(27=(I-l)TT)pRC-0 

[  8]  -(2<ppT)p6£ 

[  9]  T>-Parse  T 

[  10]  6MP-4  0p^0 

[11]  62 :-(ParseIype  Ior)i6£ 

[  12]  AMP-AMP, [2]  (3+(DECxD£C*99)+7x7TP=2),ryp,(,CtfD,)[ryp+l]  ,D£C 

[  13]  -( (pi) >1-1+1 )p62 

[  14]  AMA-(pMAr-(-2tl,l,pr)p(('  1  )  ,  MISShN ,  MISS&N)  [AMP  [2;]  +  l]  )p0 
[  15]  AWP<-(0,+\2+AWP[l ;]  )  t  [l]  AMP, 3, 0,0,0 

[  16]  -0,p(ALC  A LR  *LS  A UR  A UC  RC)-(,'  ')((pT)p'  ')('  ')2  6  1 
[  17]  P 

[  18]  P  Error  handling 

[  19]  A£:-A1 ,0pCs-ll , 1 ,0pCs-2,5,0pDs-'  Invalid  input' 
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[  0]  FILE-GetFileName  FILE;  EC 

[  1]  o 

[  2]  Q  Get  File  name  for  write  operations ,  check  for  existing  file 

[  3]  Q 

[  4]  Al : -AsharelAE 

[  5]  -(27=lt FILE-FILE  Input  'Enter  DOS  file  name' )pA3 

[  6]  -(OtEC-Aropen  FILE, ' ,D' )pA3 

[  7]  nclose 

[  8]  -*( GetYN  'File  already  exists,  delete  it')lAl 

[  9]  ■+nsharelnE 

[  10]  -(0=£C-Adelete  FIL£)pA 3 

[11]  -A2,0pCs-ll  ,1 ,0pCs-2,5,0pDs-’>(P210  error:  \*ole[lEC;] 

[  12]  A£: Cs-11  , 1 ,0pCs-2 ,5,0pDs-'  AP210  not  active' 

[  13]  A2: FILE-, 27 
[  14]  A3 :Aclose 


[  0]  NEW-GetlnName 

[  1]  o 

[  2]  Q  Get  name  of  new  imported  matrix 

[  3]  Q 

[  4]  Al:-(27=lTtfEV-GetMwie  ")p0 

[  5]  i(2=DWC  NEW)  /  ’ -*(.Get  YN  NEW,''  already  exists;  overwrite  it'')lAl' 

[  6]  1 -»Al ,PCs-ll , 1 ,0pCs-2 ,5 ,0pDs- 1 1  Invalid  name' ' ’  DEA  ' -kNEW, ' '-0 ' ' 1 


[  0] 
[  1] 
[  2] 
[  3] 

[  4] 

[  5] 

[  6] 
[  7] 

[  8] 
[  9] 

[  10] 
[  11] 
[  12] 


NAME-GetName  NAME 

Q 

Q  NAME=' '  get  and  check  name  of  new  APL  matrix 
Q  NAMEf'  check  name 

Q  Returns  the  name  if  ok,  27  if  Escape 
Q 

-(0<pAMME)pA2 
NAME- ' ' 

Al : ->(.27=11  NAME-NAME  Input  'Enter  mime  of  the  new  APL  matrix'  )p0 
a2:-(3*DJVC  NAME) pO 
a 

o  Error  handling 

-*A1  ,pCs- 11,1, OpCs-2 , 5 , OpDs-NAME , 1  is  a  function' 


[  0]  R-GetTitle  C;S 

[  1]  o 

[  2]  Q  Create  title  for  submatrices 

[  3]  D 

[  4]  -(’  '==AL«[C])pAl 

[  5]  H- (8  LpE) t R-oALR [C] 

[  6]  -((DXF  «[l])eS-(64+x26),(96+x26),182,247)lAl  a  check  for  a  valid 

[  7]  -(a/v/OMF  UK)°.eS, 95, 253, 47+xl0)p0  o  APL  object  name 

[  8]  Q 

[  9]  Al:K-'C' ,JC  q  use  column  number  as  name 
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[  0]  ROGetYN  TXT;K 

[  1]  a 

[  2]  a  AsJc  for  confirmation  with  prompt  text  TXT 

[  3]  Q  ilC :  1  —  yes,  0  -  no 

[  4]  0 

[  5]  Cs-ll,l,0pCs*-2,5,0pDs-m\ 1  (Y/N)  V 

[  6]  -(a/78  89  110  121*K-ltDs,0pCs*-3,l)/DLC 

[  7]  RC* (78  110  89  121=10/0  0  1  1 


[  0]  flO-//elp;AA;AB;AP 

[  1]  a 

[  2]  Q  Popup  help  screen,  adapted  from  EDIT2;  RC:  dummy 

[  3]  a 

[  4]  ->(RC-2=0NC  1  Ajielp'  )/Al 

[  5]  -*0 ,0pCs*-l  1 , 1 ,0pCfS*-2,5 ,0pDs*- 1  Helpscreen  not  available' 

[  6]  Q  Hide  cursor 

[  7]  Al:Cs*-12,0,0pCs-12,0pDs<-6  1  1 

[  8]  a  Format  help  field 

[  9]  Cs-1  7,0pDs-3  7  19  43  2 , AB-16* UC[l ; 1] +16 

[  10]  Ds-(,  (18  42pAC[l;20]),AB),(AB+lAC[l;20]-!-16)(42pl6xLAC[l;20]+16 

[  11]  AP-0,0pCs-7  7 

[  12]  A2:Ds-(42t'  UEdi t  Helpscreen  Esc: Quit 1 (42p 

[  13]  Cs-2  7,0pDs-Ds,(,(l6  42t  (16xaPH  [l]Aiielp)  ,  (41p  V),  1 1' 

[  14]  Q  Esc,  PgUp,  PgDn  are  ok 
[  15]  -(a/27  l=AB*-2TDs,0pCs<-3  l)/0 

[  16]  -*((0=V/aA),AA-73  81=AB-2:>AB)/A2,2pA3 

[  17]  A3:-A2,AP-or(-l+r(TpAhelp)-i-16)UP+((73=AB)/-l))(81=AB)/l 


[  0]  RC-High  F,K;R;C 

[  1]  a 

[  2]  Q  (Un~) High  light  areas,  (RC:  i-changed ,  0 -escape) 

[  3]  Q  F:  l-field(short),  2-field,  3-block,  4-row,  5-column,  6-unhighlight 

[  4]  0 

[  5]  -*(v/AAC  AArt>AMC  AM/DpflOO  a  cursor  on  valid  field  ? 

[  6]  Cs*-2 , 5 ,  OpDs*- 1  Working  .  .  .  ' ,  0pCs*-7 , 5 , 0pDs*-AC[2 ;  18] 

[  7]  -*F=A1,A2,A3,a4(A5,a7 

[  8]  a 

[  9]  Al:-*A6,pOl  C  K)‘-(HIGHR  HIGHC  HICWA)-AAR  AAC(10  I  ”  1  +  1  l^AJctyp  [PRESS]  ) 

[  10]  A2:-(27=lTK-GetColor)pO 

[  11]  -A6,p(ft  C  K)"(HIGHR  HIGHC  HIGHA)**AR  A  AC  K 
[  12]  A3 :  -*  (  HIGHR=0  )  pO 

[  13]  -A6,p(ft  C  K)-((HIGHRlbAR)+0,x\HIGHR-bAR)((HIGHClbAC)+0,'i\HIGHC-bAC)HIGHA 
[  14]  A4 :  -*(27=lTK*-GetColor)pO 
[  15]  -*A6 ,  p(ft  C)-AAft(xAMC) 

[  16]  A5:->(27=ltK-GetColor)pO 
[  17]  (R  C)-(^AMft)AAC 
[  18]  A6:AMA[ft;C]-K+8xLAMA[ft;C]+8 

[  19]  ADA[ft;eGC-C]-(2+AMP[2;C])/((p,fi),p,C)pDAF  AC[l;l+AMA[fi;C]] 

[20]  AUL[3]-(l+v/0<8| ,AMA)=’  ’  'ff' 

[  21]  ClearUL 
[  22]  -0(ftC-CFLAG-l 
[  23]  Q 

[  24]  A7:  AMA*-8x  LAMA+8  Q  Un-highlight 


Q  display  text 
Q  get  answer  Y/N 
Q  set  return  code 
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[  25]  AIM*-('H2+4MP[2;])/[MF  4C[1;1+A>M] 

[  26]  Al/I.  [3]  *-  *  ' 

[  27]  ClearUL 

[  28]  RC-CFUG-l+RIGRR-RIGRC-O 


[  0] 
[  1] 
[  2] 
[  3] 

[  4] 

[  5] 

[  6] 


R^HorShif t 
Q 

Q  Adjust  column  labels,  field  types/ widths ,  sets  DIST, 
Q 

Cs+-1  , 1 ,0pDs«-l  ,  A(/C,  (  Al/R-l ) ,  WC,2  ,  AC[l ;  16] 

Cs- 4 , 1 ,  Op Ds^DIST^ ,  (  (  A(/K-l )  ,  MC)  T  AtfP[  1 ;  AOOACO]  i  [2]  ACL 
Cs-4 , 3 ,  OpDs^R^ASCt  (  (  A(/C- 1 )  p 1  ' )  ,  AMP[1 ;  A  CO]  1  ACT 


returns  DISB 

Q  re-define  field 
o  display  labels 
Q  display  formats 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 


RO-InCSV ;F;IN ;R;L; NEW 
a 

Q  Read  comma  delimited  file  (CSV  format )  into  nested  APL  matrix 
D  Fields  are  expected  to  be  enclosed  in  double  quotes  (q)  if  they 
D  contain  commas.  RC:  1  -  oJc,  0  -  escape 
a 


•* QuitlROO  o  Current  matrix  changed  since  last  save  ? 

F- '  ' 

A1  ->(27=1TF*-F  Input  'Enter  CSV  file  name  (with  path  if  necessary) ’ )p 0 
Cs*-2 , 5 , OpDs*-  1  Reading  '  ,  F,  '  .  .  .  1  ,0pCs-7 ,5 ,0pDs(-AC[2 ;  18] 

-(0=ppIAT-Afv  F)p0,pCs‘-7,5,0pDs*-4C[l;  18] 

-M,  27=1T  NEW>-GetInName)pO 

Cs<-(R>-2)  ,S,0pDs*-'  Parsing  line  1  of  '  ,*L*-pIN 
MAT<-(1  ,pMAT)pMAT>-ParseoIN[l] 

&3:Cs*-2,5,0pDs*-'  Parsing  line  1  , (*R),'  of  1  ,fL 
-(L>R-R+ 1  )pA3 ,  pMAT*-MAT,  [l]  Parse?IN[R] 
a 

t(ORIO-NEW)  ,'*-MAT' 

RC-~ 1 +MakeParam 
CFLAG>-0 


Q  Parse  file 
Q  into  nested 

Q  APL2  matrix 


o  Save  matrix  in  us 
o  Restart  session 


[  0]  RC<-InDOS;F-,LEN;IN;INO,R;C;NEU 

[  1]  0 

[  2]  Q  Read  DOS  file  into  nested  APL  matrix 

[  3]  0  RC:  1  -  ok,  0  -  escape 

[  4]  Q 

[  5]  -*<?uitlRC*-0  Q  Current  matrix  changed  since  last  save  ? 

[  6]  L£«-F*-" 

[  7]  Al :  -*(27=1  T  F*-F  Input  'Enter  DOS  file  najne  (with  path  if  necessary)  1  )p0 

[  8]  Cs*-2 , 5 , OpDs*- 1  Reading  '  ,F,'  .  .  . '  ,0pCs-7,5,0pDs-AC[2;  18] 

[  9]  -(0=ppIN^hfv  F)p0,pCs-7,5,0pDs-AC[l ;  18] 

[  10]  ->(27=11  NEW-GetInName)pO 

[  11]  A3:-*(27=1T LENGLEN  Input  'Enter  field  lengths'  )p0 
[  12]  '-A£2'  0£>l  1 -*( (lip IN) <+/LEN*-i.LEN)phE3  ' 

[  13]  0 

[  14]  MAT*-((R*-(O-l)lpIN0>-IN)  ,0)px0 

[  15]  A4 :  Cs*-2 , 5 ,  OpDs*- 1  Parsing  column  ‘,(fC),‘  of  1  ,Jp  LEN 
[  16]  >M7v>MT,Dtb‘'c[2]L£W[C]  t  [2]  IW0 

[  17]  ->((pLEN)>C<-C+l)p&4,pIN0*-LEN[C]l[2]IN0 
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[  18]  Q 

[  19]  a(ORIQ-NEW)  /  '-MAT' 

[  20]  RC*-~\+MakeParam 
[21]  ->CFLAG-  0 
[  22]  Q 

[  23]  P  Error  handling 
[  24]  h£2:-h3,pCs-ll,l,0pCs-2,5,0pDs- 
[  25]  hE3:-h3,pCs-ll,l,0pCs-2,5,0pDs- 


R  Create  matrix  parameters 
o  Restart  session 


Numeric  data  only,  please' 
Error  in  field  lengths' 


[  0]  RO-InitPrt;X;A 

L  1]  P 

[  2]  P  INIT  —  Initialize  HP  LaserJet  (.RC  always  0) 

[  3]  P  Reset  HP  LaserJet  and  load  down  APL2  font. 

[  4]  p  The  font  will  be  permanent ,  so  that  it  is  not  deleted  from 
[  5]  P  printer  memory  by  a  following  reset. 

[  6]  P 

[  7]  OVA-81  OS VO  'X' 

[  8]  -(2f0SV0  1 X' )ph£r 

[  9]  P 

[  10]  P  Reset  printer,  download  fonts,  initialize 

[11]  Cs-2 , 5 ,  OpDs- 1  Downloading  .  .  . 1  ,0pCs-7 ,5 ,0pDs-AC[2 ;  18] 

[  12]  X-2,0pX-0 

[  13]  A-X 
[  14]  Of/A-OSVR  'X' 

[  15]  4(2 1  A)/ 1  Cs-11 ,  1 ,0pCs*-2,5,0pDs*-1  1  Portrait  font  AP100RFN.SFP  not  found'" 

[  16]  4(2<A)/'  Cs-11 ,  1 ,0pCs*-2,5,0pDs*-1  'Landscape  font  AP100RFN.SFL  not  found'" 

[  17]  -RC- 0 
[  18]  P 

[  19]  a£r:pCs-ll ,l,0pCs-2,5,0pDs-1  Unable  to  share  AP81' 


[  0] 
[  1] 
[  2] 
[  3] 

[  4] 

[  5] 

[  6] 
[  7] 

[  8] 
[  9] 

[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 


R-CLR  Input  MSG;C 

p 

P  Prepare  screen  for  user  input;  clear  input  line  if  CLR  empty, 
p  otherwise  fill  input  line  with  CLR  and  locate  cursor  behind  it, 
p  display  start  message,  get  user  input 
p 


Cs-7,5,0pDs-hC[l ; 18]  R  Set  message  line  to  no-blink 

Cs-2,5,0pDs-((hSC-17)TMSG) , 1  Hit  Esc  to  cancel’  R  Update  status  line, 

Cs-2 ,6 ,0pDs-CLR  P  open  input  line 

Cs-1 ,6,0pDs-(ASR-2) , 1  1 ,ASC,0,hC[2;8] 


hi :Ds-6, 1 , T1+(~(€CLR)= , 1  ' )10,p, CLR 
h2: Cs-3 ,0 ,0pCs-12 ,0 ,0pCs-12 
i(a/4  l=C-2tDs)/ 1 -h3 , R-27 1 
4(a/6  l=C)/'-h2,Ds-6, 1,1' 

4( a/6  2=0/ 1  -hi ,  CLR<-(Dtb,Ds ) , OpCs-5 , 6 ' 
-(v/0  Of C)ph2 
R-(Dtb,Ds) , OpCs-5, 6 

h3:Cs-l,6,0pDs-(hSR-2) ,1  1 ,hSC,2,hC[l ;8] 


p  Get  user  input 

p  <Escape> 

R  <Home> 

R  <End> 

R  not  <Return> 

R  Close  input  line 
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[  0]  RC>-InsCol ;  TYP ; DEC ; C ;  T;HF;  I 

[  1]  Q 

[  2]  Q  Insert  blank  columns  before  the  current  column 

[  3]  Q  RC:  1  -ok,  0  -  escape 

[  4]  Q 

[5]  T-" 

[  6]  Al:T-T  Input  '  Enter  field  types  (C/D/Nx/  Ex  /  A)’ 

[  7]  -(27=(I-l)1T)pROO 

C  8]  -(2<ppT)pA£l 

[  9]  Cs-2,5,0pDs-'  Working  .  .  .  '  ,  0pCs-7,5,0pDs-AC[2;  18] 

[  10]  T-Parse  T 
[  11]  MF-5  OpxO 
[  12]  &2 :  -•  ( ParseType  I=T)1a£1 

[  13]  HF<-HF,  [2]  0,  (3+  (DEC* DEC/99)  +7 * TYP=2) ,  TYP,  (  ’  CND’  )  [7TP+1]  ,DEC 
[  14]  -*((pT)>I-I+l)pA2 

[  15]  7-TpT 

[  16]  ALR-(  (A,4C-1 )  TALK)  ,  (Tp1  '  )  ,  (A/lC-lHALR 

[  17]  AMr-((A^C-l)  t  [2]  HAT)  ,  ((&MR,  T)p(  (  1  '  )  ,MISSaW,MISSaW)  [MF[3  ;] +1]  )  ,  (A,(C-1 ) 
112]  MAT 

[  18]  AMyt-((A*C-l)T[2]AM/0,((AMR,:r)pO),(A/lC-lH[2]AAM 

[  19]  ADM-(CT[2]ADM),((AMR,+/2+MF[2;])p'  1 ) ,  (C-AMP[1 ;  A>ic]  )  1  [2]  ADM 

[  20]  AD*-(CT[2]ADyO,((AMR,+/2+MF[2;])pCMF  AC[l;l]),a[2]AD/< 

[  21]  ACL- (a  [2]  ACL)  ,((2,+/2+MF[2;])p'  '),C1[2]ACL 

[  22]  ACT-(CTACT),(e(2+MF[2;])T"MF[4;]  , "(*"MF[2 ;]),"(  '  “»MF[5;] ) [1+ 

(MF[5;]9‘99)xxT])  ,C1ACT 

[  23]  Q 

[  24]  AMP-((Ay(C-l)t[2]AWP),MF,(A^C-l)l[2]AMP 
[  25]  AMP[1  ;]-0,_U+\2+AWP[2;] 

[  26]  AMC-AMC+T 

[  27]  ACL[fiC-CFL/»G-l;]-e(2+_UAMP[2;])T"5  xAMC 

[  28]  -O.DISB-tforShift 
[  29]  o 

[  30]  a£1  : -*Al  ,0pCs-l  1 , 1 ,0pCs-2 ,5,0pDs- '  Invalid  format' 


[  0]  RC^InsRow 

[  1]  O 

[  2]  Q  Insert  a  blank  row  before  the  current  row,  RC:  always  1 

[  3]  Q 

[  4]  Cs-2,5,0pDs-'  Working  . . . 1 ,0pCs-7 ,5,0pDs-AC[2; 18] 

[  5]  MXT-aA/lR-DTCllM/in.ClKC  '  )  , MISSaW.MISSaM)  [1+“1 1AMP[3 ;] ]  ,  [1]  (A^fi-1) 

l[l]Mi4T 

[  6]  ADM-(((Aylfi-l)T[l]ADM)  ,  [1]  1  '  )  ,  [l]  (AdR-1) 1 [l] ADM 

[  7]  AMyt-((Ai4fi-l)T[l]AMyl) ,  [1]0,  [1]  (Ay»fi-l)l[l]AM>l 

[  8]  ADX-((AXR-l)T[l]AD/l),i;i](CMF  AC[l;l]),[l](AJ4fi-l)i[l]AD>( 

[  9]  ALC-((Aytfi-l)TALC),('  '  )  ,  (AAft-1 )  1ALC 

[  10]  DISL-VerShift 
[  11]  AMR-AMR+CFL/lG-RC-1 


89 


[  0]  ROLeHarg;L;V 

[  1]  0 

[  2]  Q  Set  left  margin 

[  3]  Q 

[  4]  L*-?Apvar[4] 

[  5]  Al  :-*(27=ltL*-L  Input  'Enter  new  left  margin'  )pROO 

[  6]  '-*AEr'  IDEA  '  Apvar[4]*-/*-999  III  il' 

[  7]  -*0,pAmenu3[6;27+x3]*-'550'?y 

[  8]  a 

[  9]  AErr-'Al ,0pCs*-l  1 , 1 ,0pCs*-2 ,5,0pDs*- 1  Input  must  be  numeric' 


[  0]  ROLinInch;L;V 

L  1]  o 

[  2]  Q  Set  lines  per  inch 

[  3]  a 

[  4]  L*-*Apvar[7] 

[  5]  Al  :-*(27=ltL*-L  Input  'Enter  lines  per  inch '  )pROO 

[  6]  '-AEr'  IDEA  '  Apvar[7>V- L48-M  IT48*  I  ±L' 

[  7]  Amenu3[9;27+%3]*-'550'*y 

[  8]  -•0,pAfflenu3[8;27+%3]'-'550'TApvar[6]'-r(0.2x/)  TApvar[6] 

C  9]  a 

[  10]  AEr:-*Al  ,0pCs*-ll ,  1 ,0pCs*-2,5,0pDs'- '  Input  must  be  numeric’ 


[  0]  RC*-Locate;R 

[  1]  a 

[  2]  Q  Position  cursor  at  specific  row  and  column 

[  3]  Q 

[  4]  fi- '  1 

[  5]  Al : -*(27=1 1 R*-R  Input  'Enter  row, column '  )pROO 

[  6]  ' -*aE1  1  DEA  '-«(2*pR'-*/DpAE2'  a  must  be  numeric,  2  elements 

[  7]  AC£>-((l+ASC-Ayc)>20+(+/AMP[l  2;AAC-irAMCU[2]])-AMP[l;]Hl 

[  8]  AftO-ir-5+AAfi-irAMftLft[l] 

[  9]  *(ACOMOC)/ 1  DISB'-HorShift'  Q  scroll  window  horizontally 

[  10]  *(AftO#AO/0/' DISL*-VerShift‘  a  and  vertically  if  necessary 

[  11]  -O.ROl 

[  12]  a 

[  13]  o  Error  handling 

[  14]  AE1 :  -*aE0  ,MSG<- 1  Input  must  be  a  numeric  vector' 

[  15]  AE2:MSG*-' Specif y  2  columns,  please' 

[  16]  AEO : -*Al , 0pCs*-l  1 , 1 ,0pCs*-2 , 5 , 0pDs*-MSG 


[  0]  R>-MakeDisA;C 

[  1]  0 

[  2]  Q  Build  attribute  matrix  for  display  window 

[  3]  O 

[  4]  ODAF((AWRLaMR-R) , AWCLAMPCl ; AMC+1]-C)T((R-AR0-1) ,C-AMP[1 ;AC0] )1ADA 

[  5]  R-(AWR,AI7C)pAC[l;l] 

[  6]  R[xltpC;xUpC]-C 

[  7]  R-,R 
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[  0]  R>-HakeDisP 

[  1]  Q 

[  2]  Q  Cut  window  portion  from  display  matrix 

[  3]  G 

C  4]  R-,(AWl,AM;)t((AilO-l)  ,AMP[1  ;AC0])4ADM 


[  0] 
[  1] 
[  2] 
C  3] 
[  4] 
[  5] 
[  6] 
C  7] 
C  8] 
C  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 


R-P  Makelndex  A;W;C;D;I;U 
Q 

Q  Extract  unique  elements  for  FreqTab  and  CrossTab 
G  I  input  vector  A  converted  to  indices 

g  U  unique  elements,  used  as  col/row  labels 

0  P[l]  column  number 

G  P[2]  0  -  A  is  a  vector  of  character  elements 

G  else :  classification  data  (L,lf, ^classes)  for  numeric  vector  A 

Q 

(C  D)-P 

G  Character  vector 

i(0=ppD)/'-A2,I-((/-l/[(((pl/)  ,l)plM(AxA)=xpA)/A)sortAsub  l])xA’ 

Q 

G  Else 

1-1  T(2+  l(A-D[l]  )-*-(7-(D[2]  -D[l]  )+D[3]  )  U>[3]  +2 
-*(2=AWP[3  ;C]  )pAl 

D 

Q  Numeric  vector 

-•A2 ,pV>-c [2]  (  '  <  '  ,  (D[3]+l)p'>'  )  , '  '  ,*((D[3]+2),l)pD[l]+l7*0,0,xD[3] 

Q 

D  Date  vector 

Al:l/*-c[2]('<'  ,(D[3]+l)p'>') , '  '  .FromDays  D[l]+(7*0,0,xD[3] 

Q 

A2 U ) 


[  0]  RC<-MakeLabCol;C 

[  1]  Q 

[  2]  Q  Toggle  1st  matrix  column:  column  •—>  label;  RC  dummy 

[  3]  Q 

[  4]  Cs*-2,5,0pDs*-'  Working  .  .  . '  ,0pCs*-7 ,5,0pDs*-4C[2;  18] 

[  5]  -(iyC=6)pAl .CFLAG-RC-l 

[  6]  Q 

[  7]  ( MAT  &MA)-(&LC,MAT)(0,&MA)  Q  1st  column  -  label 

[  8]  ADM-((C-2+Up=ALC)t[2]3ALC)  ,ADM 

[  9]  ADA-(((Tp4DA)  ,C)pClAF  4C[1;1]),4DA 

[10]  (ACL  4CD*-((Ct  [2]  '  [0.5]  ,  GALS)  ,  ACL)  ((Ct'C1  ,TC-2)  ,  ACT) 

[  11]  (ALC  A LS  A LR  ACC  AMC)-(hMRp'  ')('  ' ) (ALS, ALfi)6(AWC+l) 

[  12]  -A2,pAMP-(0,(C-2) ,0, 'C' ,99) , [2]AMP 

[  13]  Q 

[  14]  Al:*(05tAMP[3;l])/'DVA-"C”  ToggType  1'  G  label  -  1st  column 

[  15]  (ALC  A  LR  ALS)-(MAr[;l])(UALfi)(lTALfi) 

[16]  *(l==ALC)/  ’  ALC*-c  [2]  ((  (pALC)  ,  1  )pALC)  , '  1 

[  17]  ( MAT  AMA)<-1 4-  [2]  ~ MAT  AMA 

[  18]  (ADM  ADA  ACL)*-AMP[1  ;2]  l  [2]  “  ADM  ADA  ACL 
[  19]  (ADC  ACT  AMC)<-(7+TUpGALC)(AMP[l;2]4ACr)(AMC-l) 

[  20]  AMP-U[2]AMP 
[  21]  Q 
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q  adjust  column  positions 


[  22]  A2:AMP[l;]-0,_U+\2+AMP[2;] 

[  23]  ACL[1  ;]-€(2+-UAMP[2;])t"(?"xAWC) 
[  24]  AWO-l+ASC-ADC 


[  0]  RC>-MakeLabRow;NoNum 

C  1]  a 

[  2]  a  1st  matrix  row  -  column  labels  if  no  labels  exist 

[  3]  a  column  labels  -  1st  matrix  row  otherwise;  RC  is  dummy 

[  4]  a 

[  5]  Cs-2,5,0pDs-'  Working  .  .  .  '  ,0pCs<-7 ,5,0pDs*-AC[2;  18] 

[  6]  -(RC-ADR=2)pAl 

[  7]  a 

[  8]  Q  1st  row  *-  labels 

[  9]  NoNum-xO 

[  10]  ChgType" (0^"liAMP[3 ;] ) /xAMC 

[  11]  (MAT  AMR  ADM)*-(ALR,  [l]MRT)(0,  [l]AMR)(ACL[2;]  ,  [l]  ADM) 

[12]  ADR-(DRF  AC[l;l]),[l]ADR 
[  13]  ALR’-hMCp '  ' 

[  14]  ACL [2 ;]«-'  ' 

[  15]  i.(0<pNoNum)  / 1  Cs^l 1 , 1 ,0pCs*-2 ,5  ,0pDs<-'  '  Columns'  1  ,  (*NoNum)  1  set  to 
character  type ' ' ' 

[  16]  (AMR  A LS  ALC)<-(AMR+1)('  ’)(ALS,ALC) 

[  17]  -0  ,  A  WR*-ASR-3+Al/R*-2 

[  18]  Q 

[  19]  0  label  *-  1st  row 
[  20]  Al:(ALR  AMR)<-(*"MRT[l ;])  (AMR-1 ) 

[  21]  ACL[2;]-ADM[1;] 

[  22]  (MAT  AMR  A  DM  ADR)  <-11  [l]  "MAT  AMA  ADM  ADA 
[  23]  (A LS  ALC)-(1TALC)(UALC) 

[  24]  AVR-ASR-3+AUR.-3 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 


RC-MakeParam ; I ; COL ;W;N;D;C 
a 

Generate  matrix  parameters  for  a  new  matrix 


RC  always  2 

AMP[l;]  screen  column  offset 

AMP[2;]  field  (= column )  lengths 

AMP[3;]  field  types  (0-character,  1-numeric, 

AMP[4;]  field  types  (C- character,  N-numeric, 

AMP[5;]  decimals  for  fixed-point  numeric  data 


2-date ) 

D-date) 

,  99  otherwise 


Cs-2 , 5 , OpDs- 1  Creating  parameters  . . . '  ,0pCs'-7,5,0pDs'-AC[2;  18] 

AMR-i^C  (pMRT)pO'  1  RATT'  )  [l+2=CWC  'RRTT'] 

(ALC  ALR  ALS  ADR  hUC  RC)<-((tpMAT)p'  ')((HpMAT)p'  ')('  '  )2  6  2 
Q 

Q  Check  for  column  labels  in  1st  row 
-(v/(l=tpMRr)1A/"MRr[l;]€"M<-c'-.0123456789E')pM  Q  No  column  labels 

(ALC  ALR  AUR)-(HALC)  (MAT[1 ;]  )3  Q  Col  labels  exist 

(MAT  AMR)-U[1]“MRT  AMR 


Q 

Q  Check  for  row  labels  in  1st  column 


Al:-*(v/(l  =  HpMRT),A/"MRT[;l]e"M)pA2 
ALC-MRT[ ; l] 


Q  No  row  labels 
Q  Row  labels  exist 
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[  22] 
[  23] 
[  24] 
[  25] 
[  26] 
[  27] 
[  28] 
[  29] 
[  30] 
[  31] 
[  32] 
[  33] 
[  34] 
[  35] 
[  36] 
[  37] 
[  38] 
[  39] 
[  40] 
[  41] 
[  42] 
[  43] 
[  44] 
[  45] 
C  46] 
[  47] 
[  48] 
[  49] 
[  50] 
[  51] 
[  52] 


i(l==ALC)/’ALC-c[2](((pALC) ,l)pALC) ,  "  1  " 

AUC-7+tHp=ALC 

(ALR  ALS)-(HALR)(1TALR) 

(MAT  *MA) *1 l 12]" MAT  &MA 
a 

Q  Create  parameters 
A  2  :(AMR  &MC)*pMAT 

I*-tl,pAMP*-4  OpACL-2  0pADM-( AMR,0)pACr-x0 
&3:-t(A/0<N*€ToDays~C0L*MAT[,I]  )pA5  a  Is  it  a  date  column  ? 

’-•A4’  DE4  '  COL*MAT[;I]*i~MAT[;I] 1  Q  or  numeric  ? 

0 

COL  [N*  (  MISShN=  COL )  Ap  COL ]  -0 
COL** (&MR , 1 ) pCOL 
COLIN;]*'  ' 

W-2+3r(Tp=ALR[l])  dlTpCOL 
AMP-AMP,  [2]((/-2)  ,1,  'AT'  ,99 
-A7 , pADM-ADM, [2]  Wt [2]  COL 
Q 

A4 :  V-2+3  T ( tp=ALR  [I]  )  ITAp"  COL 
■*&6  ,p&MP*&MP ,  [2]  (U-2)  ,0, 1  C1  ,99 
Q 

A5:M4r[;l]-JV 

AMP-AMP, [2]  (W-10) ,2, 'O' ,99 
Q 

A6 : ADM-ADM, [2] tft [2] (2t (pCOL) , 1 )pCOL*oCOL 
A7 : ACL-ACL , (2 , W)p ( WT?I) , WtloALR 
ACT-ACT,WT(,AMP[3;I]),(?W-2)  , , =(AMP[4 ; I]*99)/c '  .  1  ,*AMP[4;I] 
-(AKC>I-I+l)pA3 
Q 

AMP-(0,+\2+AMP[l;]),[l]AMP,3,0,0,0  0  Position  of  matrix  end 

SetPtr 


Q  numeric  column 


Q  Character  column 


o  date  column 


[  0]  RC*Mark  F;R;C 

[  1]  0 

[  2]  Q  (Un-)Mark  areas,  ( RC :  1-dummy) 

[  3]  0  F:  1 -field,  2-block,  3-row,  4-column,  5-unhighlight 

[  4]  Q  ’mark  field'  toggles,  block/ row/ column  set  marJcs 
[  5]  o 

[  6]  -•(v/A, (C  &AR>&MC  AMR)pRC-0  Q  cursor  on  valid  field  ? 

[  7]  Cs-2,5,0pDs-'  Working  . . . 1 ,0pCs-7 ,5,0pDs-AC[2; 18] 

[  8]  -P3A1,A2,A3,A4,A6 

[  9]  0 

[  10]  Al :  &MA  [AAR;hAC]*(8*AMA  [AXR; A^C] <8)  +  8 1  AMA[Ai(R ;  A  AC]  0  Mark  field 

[  11]  &DA [A^R;  CC  A^C]-(2+AMP[2 ; A^C]  )/0AF  AC[1 ;  1+AM*  [A^R;  A^C]] 

[  12]  AUL[1]-'M' 

[  13]  ClearUL 

[  14]  ->0,(CFLAG  MARKR  MARKC)*1  A AR  A AC 
[  15]  0 

[  16]  h2:-»(MARKR=0)p0  a  Mark  block 

[  17]  -A5,p(R  C)*( (MARKRL&AR)+0,x I MARKR-&AR) ((MARKC\_hAC)+0 ,x I MARKC-&AC) 

[  18]  A3:-*A5,p(R  C)*&AR(x&MC)  Q  Mark  row 

[  19]  A4:(R  C)-(xAMR)  Aj4C  Q  Mark  column 

[  20]  A5 :  hMA  [R ;  C]  *-8+8  I  AMj4  [R;  C] 

[  21]  AD,4 [R;6GC"C] -(2+AMP[2 ;  C]  )/( (p ,R)  ,p , C)pQAF  AC[l ;  1+A>M  [R;  C]] 
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[  22]  Al/L[l]*-’M’ 

[  23]  ClearUL 
[  24]  -*0 ,  CFLAGt-l 

l  25]  Q 

[  26]  A6 :  A>M*-8 1 AMA  q  Unmark 

[  27]  ADA-(-U2+AMP[2;])/CMF  AC[l;l+AM/l] 

[  28]  Al/L[l]-'  ' 

[  29]  ClearUL 

[  30]  CFLAG-1+MARKR-MARKC-0 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 


ROMenu  NUM;&B;MSC 
Q 

P  Popup  menu  for  additional  functions 

P  NUM:  1  Statistics  RC:  1  screen  update  necessary 

p  2  File  Operations  0  escape 

Q  3  Printer 

Q 

POO 

->(2=D NC  MSC^'bmenu'  ,*NUM)/bl 

-*0 ,0pCs*-l  1 , 1 ,0pCs«-2,5,0pDs*-'>fenu  not  available * 
p  Format  menu  field 

Al:Cs-l  12,0pDs«-6  40  13  32  2,  AB-16*  |AC[l ;  l] -16 
Cs-7  12 ,0pDs<-(  ,  (12  31pAC[l  ;20]  )  ,  LB)  ,  (AB+|.AC[l  ;20]-16)  ,31pl6x  |.AC[l ;  20] +16 
Ds>-(31t  (NUMoAmenuO) ,  ’  Esc: Quit* (31p’- ’),  '|' 

Cs- 2  12,0pDs-Ds,(,(10  31TAMSC) , (30pV 


a2:-»(a/27  1  =AB»-2TDs , 0pCs»-3  l)p0 
->(  (a/0  59<AB)a(a/0  68>AB))lA2 
-(0=DWC  1 DISA ' )pA3 
Cs*- 7 , 8 ,  0pDs*-DISj4 
Cs*-2,S,0pDs*-DISP 

p 

&3:±'RC-'  ,3Afunc[WH;AB[2]-58] 


Q  Escape  pressed  ? 
p  Function  icey  ? 

p  edit  window  attributes 
p  edit  window 

p  Execute  function 


[  0]  RC*-NewMat  NAME 

L  l]  o 

[  2]  Q  ( Create  and)  Initialize  a  new  matrix 

[  3]  Q  RC:  0  -  escape  (=  keep  old  matrix) 

[  4]  Q  1  -  display  not  updated 

[  5]  Q  2  -  display  matrix  is  correct 

L  6]  Q 

[  7]  -QuitiROO 

[  8]  CFLAG<-  0 

[  9]  Cs*-2,6(0pDs*-'  ’ 

[  10]  -*(27=ltORIG-GetName  NAME)p0 
[  11]  -(2=0 NC  0RIG)pAl 

[  12]  t(ReadMat  0RIG)/'+0(ROl  ’ 

[  13]  Q 

[  14]  ->(GetFieldType)  10 
[  15]  SetPtr 
[  16]  -0.RO1 

[  17]  Q 

[  18]  A1 :  -*(2=QWC  'ASP’)pA2 


a  QQUIT  old  matrix  ? 

a  Get  mtme  of  new  matrix 
a  Exit  if  escape 
a  Jump  if  matrix  exists 
a  Try  to  find  file 

a  Get  Field  types  of  a  new  matrix 


a  Statistics  recursion  ? 
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[  19]  *(2 tQNC  'RATT’)/'-'(ReadHat  ORIG) pO , ROl '  0  Try  to  find  file 
[  20]  MAT-(-2tl,l,piORIG)p*~iORIG 

[  21]  -*0  ,RC,-MakeParam  p  Create  parameters  for  a  matrix 

[  22]  A2:-*0 , RC-StatParam  p  Recursion,  matrix  is  ready 


[  0]  Z-tfum  X 

[  1]  n 

[  2]  P  Test  if  array  X  is  numeric;  Z:  0  -  no,  1  -  yes 

[  3]  o 

[  4]  z-oeo\OpX 


[  0]  RONumCol;L 

[  1]  O 

[  2]  P  Set  number  of  columns 

[  3]  P 

[  4]  I/-*Apvar[5] 

[  5]  A 1 : -*(27=  ltL'-L  Input  'Enter  number  of  columns'  )pRC*-0 

[  6]  '-Err'  DEX  '  Apvar[5]-999 1.1  TLUL' 

[  7]  -O.pAmenuSCT^+xSl-'SSO’JApvarCS] 

[  8]  Q 

[  9]  AErr : -*A1 , 0pCs*-l  1 , 1 , 0pCs*-2 ,5 ,0pDs*-'  Input  must  be  numeric' 


[  0]  COL-NumToChar  C0L;N 

[  1]  P 

[  2]  P  Convert  numeric  column  to  character;  C  global  column  number 

[  3]  P 

[  4]  C0UN<-(MISShN=C0L)/xpC0Ll-0 

[  5]  i'COL-' ,(,3(AWP[5;C]#99)/c' H[2]AMP[5;C]  ' ) , '5(AMR,  l)pC0L' 

[  6]  COLLN  ;]*-'  ' 


[  0]  RC^OutCSV ; FILE ; N; OUTMA T ; HHA T 

[  1]  P 

[  2]  P  Write  current  matrix  to  a  CSV  file;  RC :  always  0 

[  3]  P 

[  4]  FILE y '  ' 

[  5]  ->(27=lt FILE<-GetFileName  FILE)pRC-0 

[  6]  HHAT-MAT 

[  7]  W-(2="HAMP[3;])AAMC 

[  8]  4(0?fpW)/,HMXT[;W]-(AMR,pW)pc[2]FromDays  RMXT[;W]  ' 

[  9]  HMAT>-CompMa t  HHAT  p  Append  labels 

[  10]  OUTMAT*-pO  p  Prepare  matrix  as 

[11]  CSVprep~\lpHMAT  p  vector  of  vectors 

[  12]  Cs*-2 , 5 , 0pDs<- '  Writing  '.FILE,'  .  .  .  1  ,0pCs<-7 ,5,0pDs*-AC[2;  18] 

[  13]  DWA>-OUTMAT  A fv  FILE 

[  14]  Cs«-7,5,0pDs«-AC[l;18] 
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[  0]  RC-OutDOS;FILE;N;Cl;Dl;OUTMAT 

[  1]  o 

[  2]  Q  Write  current  matrix  to  DOS  file;  RC:  always  0 

[  3]  o 

[  4]  FILE - ' ' 

[  5]  -(27=11 FILE-GetFileName  FILE)pRC-0 

[  6]  Cs*-2,5,0pDs*-'  Preparing  ‘  .FILE,' 

[  7]  OUTHAT-ADH 

[  8]  i(&UR=3)/’ OUTMAT-&CL[2;]  , [l]OUTHAT’ 

[  9]  i(&UO6)/'0UTMAT-(3((&UR=3)/&LS)  ,£LC) ,  "  "  .OUTHAT' 

[  10]  \[('-'=\)/xpN-, OUTHAT]-'-’ 

[11]  Cs*-2,5,0pDs*-'  Writing  '  .FILE,'  .  .  .  '  ,0pCs*-7,5,0pDs*-AC[2;18] 

[  12]  OWA-(c[2]-Ul2](pOUTHAT)pN)Afv  FILE 
[  13]  Cs*-7,5,0pDs*-AC[l;18] 


[  0]  R-Parse  CSV; Q; DEL; N 

[  1]  0 

[  2]  Q  Convert  a  character  vector  into  a  nested  vector 

[  3]  Q  Commas  are  delimiters  if  not  between  double  quotes 

[  4]  o 

[  5]  DEL [N] -N-(DEL=  1 ) / xpDEL-(~Q) / ( CSV=  ‘ , 1 ) a~2 I  ' Q 1  =CSVr<- 1  ,  '  .CSV 

[  6]  R-Dtb"ll"(DEL+l)c(~Q)/CSV 


0] 

1] 

2] 

3] 

4] 

5] 

6] 

7] 

8] 
9] 

10] 

11] 


RC-ParseType  V 
Q 

Create  type  parameters  from  user  input 
TYP  (global)  type  code 

DEC  (global)  decimal  digits,  99  if  character  or  date 


->('CcDdAaNnEe'xirV)^Al,Al,A2,A2,A3,A3,A4,A4,AS,AS,RC-0 
Al:-0,p(RC  TYP  DEC)- 1  0  99  Q 

A2:-0,p(RC  TYP  DEC)- 1  2  99  a 

A3:-0,p(RC  TYP  DEC)- 1  1  99  Q 

A4 :  •  -0 *  OEA  '-0,p(RC  TYP  DEC)-1  lUUVO’  0 

A5 :  ■  -0 *  DEA  '-•0,p(RC  TYP  DEC)-1  1  V)  •  a 


character  type 
date 

numeric  (std.APL) 
fixed  decimals 
scientific  format 


[  0]  W-PlaceEntry  C;COL;DIF;KEEPC 

[  1]  a 

[  2]  Q  Rewrite  matrix  column  C  into  ADM,  expand/ reduce  column  width 

[  3]  Q  Return:  W  new  column  width 

[  4]  Q 

[  5]  Cs*-2 , 5 , OpDs«- 1  Updating  display  .  .  .  1  ,0pCs<-7,5,0pDs*-AC[2;  18] 

[  6]  ->(0=DIF-(W-DisCol)~2+*MPl2;C])pA2 

[  7]  KEEPO  ( 1 1  p  ADM)  p  1 

[  8]  iCDIF^/'-M.KEEPCCAMPCliCl  +  V+xlDIFl-O’  a  reduce  width 

[  9]  KEEPC[AMP[l ;  C+l]] '-DIF+l  Q  expand  column 

[  10]  Q 

[  11]  Al :(6DM  ADA  hCL  &CT)-KEEPC/~  4DH  4DA  A CL  ACT 
[  12]  AMP[l ;]  *-0 ,  ~ll+\2+AMP[2 ;] 

[  13]  A2:  ADM[;  AMP[l  ;C]+xW]*-Wt[2]C0L 

[  14]  ADA[;AMP[l;C]+xhG-*S)07,tpADA)p[]AF  AC[l;l+AMA[;C]] 

[  15]  ACT[AMP[l;C]+xW^I7t(,AMP[4;C]),(Jl7-2),  ,  =  (AMP[5;C]?t99)/c'  .  1  ,JAMP[5;C] 
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[  0]  Play;A;SH 

[  1]  Q 

[  2]  o  Sound  if  matrix  is  ready  to  edit-,  length  depends  on  matrix  size 

[  3]  o 

[  4]  A-440  □ SVO  'SH' 

[  5]  k(2*QSV0  'SH')/'-*0,pCy"  NOT  SHARED"  • 

[  6]  SH-’04' ,(2xf0.003xhMCxhMR)p'C6D6' 


[  0]  RO-Pool ; D ; COL ; Cc ;  A ; B ; C2 

[  1]  Q 

[  2]  o  Collapse  specified  rows/ columns  of  a  cross  matrix 

[  3]  Q 

[  4]  -*(0=DAfC  'RCM') pRC-0  Q  return  if  no  cross  matrix  exists 

L  5]  Q 

[  6]  Cs*-1 1 , 1 ,0pCs*-2, 5,  OpDs-'  Collapse  Rous  or  Columns;  Original  ( R/C/O )  ?' 

[  7]  -*(a/67  79  82  99  111  114#K*-lT£)s,0pCs*-3, 1)/DLC  Q  get  answer 

[  8]  D-( 67  99  82  114  79  lll=K)/0  01122  Q  cols= 0,  rows=l ,  orig=2 

L  9]  G 

[  10]  Q  Back  to  the  original  table 
[  11]  ->(Df2)phO 

[  12]  Cs*-2 , 5 , OpDs- '  Restoring  .  .  .  '  ,0pCs*-7,5,0pDs*-AC[2;  18] 

[  13]  -A5,p (RCM  Uni 1  Uni2)~0RCM  OUnil  OUni2 

[  14]  G 

[  15]  o  Collapse  rows/ columns 
[  16]  hO:*.(~D)/'  RCM<-S)RCM' 

[  17]  COL*-'  ' 

[  18]  G  hi (27= IT  COL-COL  Input  'Enter  row/ column  numbers' )p0 
[  19]  Al:-*(27=1TC0L,-C0L  Input  ‘Enter  ',(€('  column'  '  row' )  [D+l]  ) , 1  numbers')pO 
[20]  ■* ( COL= ,  '  ')p0 

[  21]  '-•AEl1  OEA  '  COD-kCOL'  a  must  be  numeric 

[  22]  tD/'COL-l+LCOL+S' 

[  23]  -<(h/ COLGxlpRCM)  lhE2  Q  must  exist 

[  24]  Q 

[  25]  Cs<-2 , 5 , OpDs-  ‘  Aggregating  .  .  .  1  ,0pCs*-7 ,5 ,0pDs<-AC[2;  18] 

[  26]  HCW[tC0L;]-+/HCW[C0L;] 

[  27]  ACtf-ACtf[(xTpKCW)~UCOL;] 

[  28]  -(~D)pA3 

[  29]  Q 

[  30]  -*('<' *T,3Unil[TCc*-C0L[AC0L]])pA2  Q  Roys 

[31]  '-AE3'  OEA  ,Unil[tC0L]*-c"<",u,3«nil[i+-ltCc]' 

[  32]  A2:-*A5,pUnil'-Unil[(xpUnil)~liC0L] 

[  33]  Q 

[  34]  A3  :-*(  1  < 1  ,  3(/ni2[TCc*-C0L[AC0L]]  )pA4  a  Columns 

[35]  '->hE3‘  DEA  '  Uni2[TC0L]-O  •<•  1  ,  li ,  :>Uni2[l  +  ‘l TCc]  ' 

[  36]  A4:  Uni2*-Uni2[(xpl/ni2)~liC0L] 

[  37] 

[  38]  Q 
[  39]  A5: 

[40]  *.MM,'-Ct Prep  RCM1 

[  41]  C2*-CFLAG  0  temporarily  disable  the  Change  flag 

[  42]  CFLAG-0 
[  43]  D-NewMa t  MM 
[  44]  Refresh 
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[  45]  CFLAG-C2 
[  46]  -O.KC-l 
[  47]  Q 

[  48]  Q  Error  handling 

[  49]  AE1  :-*AE0 , MSG*- '  Input  must  be  a  numeric  vector' 

[  50]  AE2:->AE0  ,HSG-'  Non  existing  column/row  numbers  specified ' 
[  51]  hE3:HSG-'  ?  ?  ?  ?' 

[  52]  AE0:-*M,0pCs,-ll  ,1 ,0pCs-2 ,5 ,0pDs-HSG 


[  0]  RC-PortLand; P 

[  1]  0 

[  2]  Q  Toggle  printer  portrait/ landscape  mode 

[  3]  o 

[  4]  P^Apvar[3]*-~Apvar[3] 

[  5]  Amenu3[5;]*-30t'  F5  Start  ' ,  ( ( P+ 1 )  =► 1  Landscape’  'Portrait' ) , 1  mode' 

[  6]  Apvar[l  2]*-Apvar[2  1] 

•  [  7]  RC- 0 


[  0]  RC-PrtHark;R\C;HP\OHAT;N;LC 

L  1]  0 

[  2]  o  Print  marked  area  of  a  worksheet 

l  3]  Q 

[  4]  RC- 0 

[  5]  k((x0)=R-(v/hHA>8)/xhHR)/‘-‘0,0HAT-"  "  ’  Q  marked  rows 

[  6]  C-(v/hHA>8)/xhHC  Q  marked  columns 

[  7]  Q 

[  8]  HP-AHPt 2 ;  C] 

[  9]  OMAT-hDMLRitGC'C] 

[  10]  k(&UR=3)/ ' 0MAT-(€(2+&MP[2;  C]  ) T "  [Cl  )  ,  [1]  OHAT’ 

[11]  k(AUO6)/'0MAT-(LC-3((AUR=3)/hLS)  ,&LC[R])  ,  "  '  '  ,0HAT' 

[  12]  Nl('-,=N)/xpN-,0MAT}-'-' 

[  13]  OMAT-(pOMAT) pN 
[  14]  k(hU06)/'HP-(-llpLC)  ,HP' 

[  15]  0 

[  16]  RC-PrtHat  OHAT 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 


RC-PrtHat  OMAT;HD;R;C-,RL;Ct;  RC;LPP;  CPP;P;  PP;PA;PB; PAG.HHP ;  L 
Q 

D  Print  OHAT  which  is  the  complete  worksheet  or  a  marked  block 
Q 

-*(27=1T HD-11  Input  'Enter  heading  for  each  page' )pRC-0 
-*(27=1T R-GetYN  'Row  labels  on  each  page'  )p0 
-»(27=lTOGetyN  ‘Column  labels  on  each  page') p0 
Cs-2,5,0pDs-'  Printing  . . . ' ,0pCs-7 ,5 ,0pDs-&C[2; 18] 
a 


LPP- L&pvar[7] xipvar[l]-0.8+Apvar[6]+Apvar[7]  a  x  matrix  line  per  page 
LPP-LPP~3+C*2  O  Adjust  for  heading,  labels 

CPP-hpvar[S] -2+RxHP[l]  Q  x  matrix  columns  per  page 

Q 


HP-HP+ ( ( ~l+pHP)p2) ,0 
0HAT-~2l [2] OHAT 
RL-((lTpOHAT)  ,0)p’  ' 


Q  matrix  field  lengths 
Q  last  2  columns  are  blank 
Q  init  row  labels 
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[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 
[  26] 
[  27] 
[  28] 
[  29] 
[  30] 
[  31] 
[  32] 
[  33] 
[  34] 
[  35] 
[  36] 
[  37] 
[  38] 
[  39] 
[  40] 
[  41] 
[  42] 
[  43] 
[  44] 
[  45] 
[  46] 
[  47] 
[  48] 
[  49] 
[  50] 
[  51] 
[  52] 


CL-(UpOMAT) p'  ’ 

RC -'  1 
-*JUA1 

RL*-HP[1]  t  [2]  OMAT 
OMAT-MPlH l 12^ OMAT 
MP-llMP 
Al:-CiA2 
CL-OMATl  1 ;] 
OMAT'-UtilOMAT 
-RlA  2 
PORLtl ;] 
RL-11[1]RL 


Q  Send  printer  setup  codes 

A2:0WA-Aprint(0AF  27  38  108) , (f Apvar[3] ) , ' O'  a 

QWA-Aprint(DAF  27  40) ,  (*105+Apvar[3]  ) ,  ’  X'  a 

□M,-Aprijit(CMF  27  38  97) ,  (f  Apvar[4] ) ,  ’  V  a 

□!<M*-ApriJit(CMF  27  38  108) ,  (*Apvar[6]  ) , 1  £'  q 

□hM<-Aprijit([IMF  27  38  108) ,  (*Apvar[7]  ) ,  'D'  Q 


□hM*-Aprint([]*F  27  38  107  48  71) 

Q 

PB-0 

A3 : P-MMP[PP-+/CPP>MMP-+\MP] 

PA- 0 

PB-PB+L-1 

a 


a  i nit  column  labels 
Q  init  upper  left  label  corner 

o  row  labels 


a  column  labels 


portrait/landscape 
set  font  id 
left  margin 
top  margin 
lines  per  inch 
Q  line  termination  code 

o  2nd  part  of  page  number 
o  last  column  to  print  in  this  pass 
p  1st  part  of  page  number 
Q  L:  matrix  line  to  print 


A4. P A- PA+\ 

DWA-Aprint((bpvar[S]-pPAG)THD) , (PAG-' page  ' ,(*PA) , ' . ' ,*PB) ,DAF  13  10  13  10 
iC/'DWA-Aprint  (CMF  13  10) ,PC,CL[xP]  ,CMF  13  10’ 

p 

A5:-^(lTpO>Mr)<L-L+l)pA6,Aprijit(DAF  13  10)  ,PL[L;]  ,0MAT[L;xP'] 

-(0*LPP|L)pA5 
-A4 , ff 


A6' OMAT-Pl [2]  OMAT 
CL-PICL 

-(l<pMP-PP!MP)pA3,ff 


[  0]  RC-PrtUKS\ OMAT; MP; N; LC 

[  1]  o 

[  2]  Q  Print  complete  worksheet 

[  3]  Q 

[  4]  OMAT- ADM 

[  5]  ACAy^VOMiir-ACLl^;]  ,  [l]0Mi4T’ 

[  6]  l(bUO6)/'0MAT-(LC-i((bVR=3)/bLS)  ,bLC) ", OMAT ' 

[  7]  ^[(,-,=^)/^pJV-,0Mi^r]«-,-, 

[  8]  OMAT-(.pOMAT)pN 

[  9]  MP-"HAMP[2;] 

[  10]  i(AU06)/‘MP-(-ltpLC)  ,MP‘ 

[  11]  o 

[  12]  RC-PrtMat  OMAT 
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[  0]  RC-Quit 

[  1]  a 

[  2]  Q  Quit  without  saving  changes  ? 

[  3]  Q  RC:  1  -  ok  to  quit  (do  not  save )  or  no  changes  applied 

[  4]  Q  0  -  do  not  quit 

[  5]  0 

[  6]  RC>-k(CFLAG+l)^'  1  ’  '  GetYN  "Lose  all  changes'" 


[  0]  RC-ReadMat  F,FF,Cz;Dz;EC;MM 

[  1]  0 

[  2]  Q  Read  matrix  and  its  parameters ,  RC:  1  -  ok,  0  -  escape/ error 

[  3]  0 

[  4]  -* QuitlRC-0  Q  Current  matrix  changed  since  last  save  ? 

[  5]  Q 

[  6]  i(~F='  '  )/'-A2,pFF-PATH,F, ' '  .UED.A"  ' 

[  7]  A1 : -*(27=  It F-F  Input  ’ Enter  matrix  name')pRC-0 

[  8]  FF-PATH,  (  (a\P¥ ' . 1  )/F)  , ' .  UED ,  A ' 

[  9]  A2:-*AsliarelAE2 

[  10]  -(OfEC-hropen  FF)pO 
[  11]  o 

[  12]  A3 :  Cs*-2 , 5 ,  OpDs*- 1  Reading  \(_2iFF),'  .  .  .  *  ,0pCs-7,5,0pDs-AC[2;18] 

[  13]  -*(0^t(£C  AMR)*-Areadv)pAEl 

[  14]  ->(0/T(EC  AMC)-hreadv)p&El 

[  15]  &MA-MAT-( 0, AMC) pxO 
[  16]  A31:-(0*T(£C  MM)*-Areadv)pA£l 
[  17]  MAT-MAT,  [1]  MM 
[  18]  -*(0^T(EC  MM)-Areadv)pAEl 

[  19]  -(l<AMR-AMR-l)pA31,AMA-AMA, [l]MM 
[  20]  -*(0*T(EC  AMP) -bread v) p AE1 

[  21]  -*(0^t  (EC  A£R)*-Areadv)pA£l 

[  22]  -(0*T (EC  ALC)-Areadv)pA£l 

[  23]  -*(0^t(EC  ALS)*-Areadv)pA£l 

[  24]  -(0*T  (EC  F)*-Areadv)pA£l 

[  25]  -*(£C^0)pA£l 

[  26]  A close 

[  27]  '-*a£1  '  DEA  '(A  UC  hUR  AAR  A  AC  hRO  hCO  hOR  hOC  MARKR  MARKC  HIGHR  HIGHC)-F' 

[  28]  (AWR  AWC)-(ASR-3+AUR)(l+ASC-Al/C) 

[29]  *(MARKR>0)/,AUL[1]-”M”  ' 

[30]  k(HIGHR>0)/'  A(/L[3]<-’  '  S"  ' 

[  31]  Cs«-7>5,0pDs*-AC[l;18] 

[  32]  -*0 ,  RC-1 

[  33]  0 

[  34]  AE2:-*0,pCs,-ll ,  1 ,0pCs*-2(5,0pDs*-,AP210  not  active' 

[  35]  AE1 :hclose 

[36]  -*A1  ,pCs»-ll,  1 ,0pCs*-2,5,0pDs*-'AP210:  '  ,  Aap210[|  EC;] 
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[  0]  RC-Recode;UNI;  VAL;D;I;  COL 

[  1]  o 

[  2]  Q  Replace  elements  in  current  column  by  new  ones  of  character  type 

[  3]  Q  RC:  0  -no  changes,  1  -  screen  update  necessary 

[  4]  Q 

[  5]  Cs-2,5,0pDs-'  Working  . . . 1 ,0pCs-7 , 5, 0pDs-AC[2 ; 18] 

[  6]  RC-tO,I-pUNI-,((lhD)=xpD)/D-COL-T"MATC;hAC] 

[  7]  Al:-*(27=1T  VAL-VAL  Input  'Enter  new  value  for  ' , VAL-T , IoUNI)pA2 

[  8]  -(l<I-I~RC-l)phl  ,pCOU(D="UNI[.I'i)/xpD]-cVAL 

[  9]  Q 

[  10]  A2:-KC10 

[  11]  MAU;hAC]-C0L 
[  12]  AMP [3  4  5;AAC]-0, '  C'  ,99 
[  13]  I-PlaceEntry  AAC 
[  14]  CFLAG-1 


[  0]  Refresh ; C ; COL ,LAB;W,N 

[  1]  o 

[  2]  Q  Generate  screen  display  matrix,  column  labels,  column  types 

[  3]  Q 

[  4]  (A HR  hMC)-pMAT 

[  5]  OTl,pACL-2  0pADM-(AMR,0)pACr-r0 

[  6]  A1 :W-DisCol  Q  get  column  width 

[  7]  ADM-ADM,  [2]  Wt  [2]  COL  Q  append  column 

[  8]  ACI.-ACL((2(W)p(WtfC)  ,WtoAL«[C] 

[  9]  ACT-ACT,  Wt(,AMP[4;C])  ,(?W-2) ,  ,  =  (AMP[5;C])t99)/c' ,yAMP[5;C] 

[  10]  -(AMC>C-C+l)pAl 

[  11]  AMP[l;]-0,-U+\2+AMP[2;]  Q  start  posistion  of  columns 

[  12]  ADA- ("11 2+ AMP [2;] )/QAF  AC[l;l+AMA]  Q  expanded  color  attributes 


[  0]  NVEC-SUB  Replace  0VEC 

[  1]  Q 

[  2]  Q  Replace  all  It SUB  in  0VEC  by  U SUB  giving  NVEC 

[  3]  Q 

[  4]  0VECC(0VEC= It SUB)/ xpOVEC] -c 11 SUB 

[  5]  NVEC-eOVEC 


[  0]  RC-ResPrt 

[  1]  Q 

[  2]  Q  Reset  printer  parameters  and  menu  to  default  values  (RC  always  0) 

[  3]  o 

[  4]  hpvar-PRINT 

[  5]  Q 

[  6]  Amenu3[5;]-30t 1  F5  Start  1 , ((1+Apvar[3] )o‘ Landscape'  1  Portrait '), 1  mode' 

[  7]  Amenu3[6 ; 27+r3]-‘ 550' ?Apvar[4] 

[  8]  Amenu3[7;27+\3]-'550'TApvar[5] 

[  9]  Amenu3[8;27+x3]-'550'*Apvar[6] 

[  10]  Amenu3 [9 ; 27+\3] - 1 550 1 TApvar [7] 

[  11]  RC- 0 


101 


[  0]  RO-Rotate ;  R;  C ;  RATT 

[  1]  o 

[  2]  o  Rotate  matrix  or  marked  area  if  anything  marked 
[  3]  Q  RC:  1 -changes,  0 -no  changes,  set  ( with  CFLAG )  in  BackLabel 
[  4]  Q 

[  5]  Cs*-2 , 5 , OpDs*- 1  Working  . .  . '  ,0pCs<-7 ,5,0pDs*-hC[2;  18] 

[  6]  *( (xfiO-0)=fi*-(v/ h>M>8) /xAM/l)  / 1  -»Al ,p(R  C)^"phWA'  Q  Find  row/col  numbers 

[  7]  0-(v/hWi4>8)/xhWC  0  of  marked  area 

[  8]  Al:(R0MAT  RATT)'-$~R  AddLabel  C  Q  Create  rotated  submat 

[  9]  k(USER  1 ROHAT' )/ 1  RO(R  C) BackLa bel^ROMAT'  Q  Implement  changes 


[  0]  SHOW  V;nE 

[  1]  Q 

[  2]  Q  Show  the  variable  V  in  the  APL2  environment ,  return  to  UEDIT 

[  3]  Q  by  hitting  return. 

[  4]  o 

[  5]  4(l=l=h£*-[]£C  'OV')/3 

[  6]  V*- ( (0= 1 i&E)/' Could  not  execute’ ), (Of 1  :>££)/ '  Successfully  executed' 

[  7]  -(0fl^£)/ai 

[  8]  3:>h£,  Op  Cf  s<- 11  1 

[  9]  &1 :Q,[M]rC[2] Press  Enter  to  Proceed’ 


[  0]  RC-SXout; FILE ;0UTHAT;  COL ;N 

L  1]  o 

[  2]  Q  Export  matrix  columns  to  StatXact;  RC:  always  0 

[  3]  Q 

[  4]  C0L-" 

[  5]  hl:-*(27=lt  C0L*-C0L  Input  'Enter  column  numbers  to  export  ’  )pROO 

[  6]  k(C0L=, '  ’)/’  COL'-fx&MC’ 

[  7]  '-a£l 1  D£A  ’  COL'-i.COL’  Q  must  be  numeric 

[  8]  ->(A/C0L€x~ltpMAT)  IAE3  0  columns  must  exist 

[  9]  Q 

[  10]  FILE-’ ’ 

[  11]  -(27=ltFIL£-GetFiIeWame  FILE)p0 
[  12]  Cs-2,S,0pDs-’  Preparing  ’ ,FILE,  ’ 

[  13]  0UTMAT>-i(xAMR)  ,iMAT[;C0L] 

[  14]  [(  1  ~’=N)  /xpN*-  ,0UTMAT]  *- 1  - 1 

[  15]  OUTMA  T*-(p  OUTMAT)  p  N 
C  16]  Q 

[17]  Cs*-2 ,5 ,0pDs*- 1  Writing  ’  .FILE,  ’  .  .  .  '  ,0pCs<-7 ,5 ,0pDs<-*Cl2 ;  18] 

[  18]  □WA*-(c[2]  OUTMAT)  Afv  FILE 

[  19]  -0 

[  20]  D  Error  handling 

[  21]  a£l  :-hEO  ,HSG*-’  Input  must  be  a  numeric  vector' 

[  22]  a£3:WSO-‘ Non  existing  column  number  specified1 
[  23]  AE0 :  -*M  ,  0pCs*-l  1 , 1 , 0pCs<-2 , 5 , 0pDs*-MSG 


102 


[  0] 
[  1] 
[  2] 
[  3] 
[  4] 
[  5] 
[  6] 
[  7] 
[  8] 
[  9] 
[  10] 
[  11] 
[  12] 
[  13] 
[  14] 
[  15] 
[  16] 
[  17] 
[  18] 
[  19] 
[  20] 
[  21] 
[  22] 
[  23] 
[  24] 
[  25] 
[  26] 
[  27] 

C  28] 

[  29] 
[  30] 
[  31] 
[  32] 
C  33] 
[  34] 
[  35] 
[  36] 
[  37] 
[  38] 
[  39] 
[  40] 


ROSaveHat  F;FF;N;SV;EC 
Q 

Q  Save  matrix  and  its  parameters;  RC:  1  -  ok,  0  -  escape/ error 
Q 

ROO 

-*(  (8<pF)v2=DWC  1  RATT'  )pAl 

±(~F='  ,)/'*C>2,pFF'-PATH,F,' '  .UED.A'" 

Al : -*(27=  1 1 F*-  (Dtb  8TF)Input  'Enter  file  nan ie')p0 
-*(F=,'  ' )pAl 

FF<-PATH,(,(,A\Ff'.')/F),'  ,UED,A‘ 

-AshareiAE2 
EC-Aropen  FF 
Aclose 

*(EC=0)/ 1  -•(GetYN  F, '  '  already  exists,  delete  i t,')lAll 

□ 

Title  F 
a 

A2 :  Cs*-2 , 5 ,  OpDs*- '  Writing  ’,(~21FF),'  .  .  .  1  ,0pCs»-7 ,5 ,0pDs»-AC[2 ;  18] 

-*AsharelAE2 

-•(a/0  2?EC*-Adelete  FF)pAEl 
-+(OtEC*-Awopen  FF)pAEl 
-•(O/EOAvritev  AMR)pAEl 
-(O/EC-Avritev  AMC)pAEl,W-l 
A21:-(0/EOAvritev  MATCW;] )pAEl 
-•(O/EOAvritev  AMA[Af;]  )pAEl 
-(AMR>W-W+l)pA21 
-•(O/EOAvritev  AHP)pAEl 
-*(0^£C*-Awritev  ALR)pA£l 
-*(0/£C*-Awritev  ALC)pAEl 
-(OtEC^-Awritev  ALS)pA£l 

N-AUC  A  UR  AAR  A AC  ARO  A CO  A OR  A 0C  HARKR  MARKC  HIGHR  HIGHC 
-*(0/EOAvritev  AOpAEl 
A close 
Q 

i.(ORIO-F)  ,'^CompMat  HAT' 
i(2=0J VC  1  RATT’  )/  '  RATTi-AMA1 
Cs-7  ,S,0pDs<-AC[l ;  18] 

-0.RC-1 

Q 

A£1 : -0 , OpCs- 11,1, 0pCs-2 , 5 , OpDs- ' AP210 :  ' , Aap210 [ I  EC, ] 

AE2 :  Cs*-ll ,  1 ,0pCs>-2( Expos’-'  AP211  not  active  -  saving  to  workspace  only' 


[  0]  SetPtr 

[  1]  a 

[  2]  Q  Set  pointers  for  a  new  matrix 

[  3]  a 

[  4]  AAR>-AAC>-ARty-ACO,-l  Q  coord  of  cursor  cell/upper  left  window  cell 

[  5]  HARKR^MARKC^HIGHR^-HIGHC*- 0  Q  first  corner  of  block  to  mark/highlight 

[  6]  AOR*-AOOO  Q  flags:  screen  update  necessary 

[  7]  (A WR  AWC)-(ASR-3+AUR)(l+ASC~AUC )  Q  size  of  edit  window 

[  8]  &DA*-(~li2+AMP[2;]  )/0AF  &C[1;1+AMA]  Q  expanded  color  attributes 
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[  0]  RC- Shadow ;R;C;  COLR ; RATT;ASP 

[  1]  0 

[  2]  a  Shadow  un-highlighted  areas;  RC:  1-done,  0-escape/ no  changes 

[  3]  Q  Sets  CFLAG  in  BackLabel  if  necessary 

L  4]  a 

[  5]  -,(0=C0LR-GetColor)pRC-0  Q  Escape  pressed 

[  6]  -*((xO)=R-(v/AHA>COLR)/xAHR)pO  o  Quit  if  no  highlights 

[  7]  Cs-2 , 5 , OpDs- '  Working  .  .  . '  ,0pCs-7 ,5,0pDs-AC[2;  18] 

[  8]  (SHHAT  RATT)-R  AddLabel  C-(v/AHA>COLR) /xAHC  o  Create  submatrices 

[  9]  i.(USER  'SHHAT'  )/'RC-(R  C) BackLabel  SHHAT'  Q  Implement  changes 

[  0]  ShowCell ; C 

[  1]  a 

’  [  2D  o  Set  color  attributes  of  current  cell  to  'active' 

*  [  3]  a 

,  [  4]  Ds-(AUR+AAR-ARO)  ,AUC+AHPll;AAC\-AHPll  ;AOC-ACCi] 

[  5D  C-AC[2;  l  +  *(l+v/(AAC,AAP)>AMC,AMP):>'AMA[AAP;AAC']  '  '0'] 

[  6D  Cs<-l,9,0pDs-Ds,l,((l+ASC-Ds[2])UMP[2;AAC]),0,C 


[  0] 
[  ID 
[  2D 
[  3D 
[  4D 
[  5D 
[  6D 
[  7D 
[  8D 
[  9D 
[  10D 
[  11D 
[  12D 
[  13D 
[  14D 
[  15D 
[  16D 
[  17D 
[  18D 
[  19] 
[  20D 
[  21D 
[  22D 
[  23D 
[  24D 
[  25D 
[  26D 
[  27D 
[  28D 


RC- Sort; Label ; VEC.HSG; S 
o 

D  Sort  rows  on  different  columns;  RC:  1  -  sorted,  0  -  escape 
Q 

VEC- '  ' 

Al ;  VEC—VEC  Input  ‘Enter  colx1'  s  in  major-minor  order  (  >0  i  ,  <0  T  )' 
-*(27=  It  VEC) pRC-0 
a 

'-*&£  1'  IDEA  '  VEC-iVEC'  o  Input  must  be  numeric 

-*(a/(  I  VEC)€x&HC)  1&E2  Q  Column  numbers  must  exist 


Cs-2 , 5, Op Ds-‘  Sorting  .  .  .  '  ,0pCs|-7,5)0pDs'-AC[2;  18D 

&2:S-HAT  sortAsub  “It VEC 

(HAT  AHA  ADH  ADA  ALC)-(HAT[S;])(AHA[S;])(ADH[S;])(ADA[S;])(ALC[S]) 


-‘(l<pVEC--llVEC)pA2 

a 

->(3>pALR)pA3 
->(ALR[3]=c‘Cum.')lA3 
VEC-(HAT[; 3D *HISSaN)/xAHR 
MAT[VEC;3]*-+\MAT[VrEC;  1] 
0WA*-P2aceEntry  3 
Q 

A3 :DISL-VerShi ft 


Q  special  handling  if  within 
Q  freq  tabs:  recalculate 

Q  cumulative  frequencies 


-0 , CFLAG- RC- 1 


Q 

o  Error  handling 

AEi : -aEO  , HSG- '  Input  must  be  a  numeric  vector' 
AE2:HSG-' Non  existing  column  numbers  specified' 
AE0 :-Al ,0pCs-ll , 1 ,0pCs-2 ,S ,0pDs-HSG 
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[  0]  RC'-StatParam 

C  1]  n 

[  2]  Q  Generate  matrix  parameters  for  a  new,  overlay  matrix;  takes  the 
[  3]  Q  information  from  &SP;  RC :  always  1 
[  4]  0 

[  5]  MAT<-kORIG 

[  6]  (AMA  hLC  &LR  hLS  hUR  RC)-(RA7T)  (  HMAT[ ;  l]  )  ( 11MAI[1 ;]  )  (  '  ')3  1 

[  7]  (AMR  AMC)-pMAT-l  llHAT 

[  8]  AyC-7+Up=ALC 

C  9]  i(v/,AMA>0)/,AUL[3]-"W"  ' 

[  10]  AMP-(5,UpASP)pO 

[  11]  AMP [3  5;] -ASP 

[  12]  AMP[4;]-( '  CND' ) [1+AMP[3;]] 

[  13]  AMP- AMP , 0 , 3 , 0 , 0 , 0 
[  14]  SetPtr 


[  0]  Title  F;N;MSG 

L  1]  o 

[  2]  Q  Create  and  display  status  line 

L  3]  a 

[  4]  tf-l0.5xASC-21+pMSG-F, '  [' , (?tpMAT) , ' * ' ,(?“ltpMAT) , 1 

[  5]  Cs-4,4,0pDs-'  UEdit  1.00\(Nt'  '),MSG,(tft'  '),'F1  -  Help  ' 


[  0]  RC<-ToDays  D;DD,MM;YY 

[  1]  a 

[  2]  Q  Validate  Date  D  and  convert  to  days  since  February  29,  0000 
[  3]  Q  D:  Character  vector  of  input  data  'MM  DD  YYyy'  or  different 
[  4]  Q  order  depending  on  the  global  variable  DATE 

[  5]  Q  RC:  MISShN  if  D  is  blank 

[  6]  Q  0  if  D  is  invalid 

[  7]  Q  days  since  Feb  29,  0000  otherwise 

C  8]  Q 

[  9]  -(A/D=*  ' )p0, RC-MISSAW 

[  10]  RC-0 

[  11]  D[(D€'-/. ')/xpD-,D]-' 

[  12]  Q  '-O'  G£A  '-((pD-,iD)62  3)10' 

[  13]  '-O'  DEA  '-((pD-*D)62  3)10' 

[  14]  i(2=pD)/lD-(DAr£%l)3(DrS[l],D)(D[l],Drs[l]>D[2])(D,DrS[l] 

[15]  (YY  MM  DD)-DCDATExx 3] 

[  16]  yy-yy+(yy<ioo)xioo*iDrs[i]+ioo 

[  17]  -(MM6%12)10 

[  18]  -(DD€%(31  29  31  30  31  30  31  31  30  31  30  31)[MM])iO 

[  19]  i(A/2  29=mm  dd)/ ‘-((of 4 l yy) v(o=ioo | yy) ao*40o | yy)po 1 

[  20]  Q 

[  21]  RC-(365*yy)+-/L(yy-yy-MM<2)°.+4  100  400 

[  22]  RC-RC+DD+ (306  337  0  31  61  92  122  153  184  214  245  275) [MM] 


Q  month  <  12 
Q  days/month 
a  leap  year 

Q  convert  date 
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[  0]  RC-ToMarg;L;  V 

[  1]  n 

[  2]  Q  Set  topt  margin 

[  3]  Q 

[  4]  L*-*Apvar[6] 

[  5]  Al  :-•( 27=  IT £,*■£.  Input  'Enter  new  top  margin' )pRC-0 

[  6]  '-AEr'  OEA  ' Apvar[6]-V-999Lr( .2xApvar[7] ) [\ il' 

C  7]  -O.pAmenuStS^+xSl-'SSO'TV 
[  8]  o 

[  9]  AEr:-*M ,0pCs*-ll ,  1 ,0pCs*-2, 5,0pDs*-'  Input  must  be  numeric' 


[  0]  RONT  ToggType  C;TYP,DEC;K;I 

[  1]  n 

[  2]  Q  Change  type/ format  of  column  C  (to  T  if  T  given) 

[  3]  Q  RC:  1  -  screen  update  necessary,  0  -  not  necessary 
[  4]  Q 

[  5]  -(&AO&MC)pRC-0 

[  6]  ->(2=DNC  'tfT')pA2 

[  7]  NT- '  ' 

[  8]  Al  (27=  IT  NT- NT  Input  'Enter  new  format  (  C/D  /  Nx/  Ex  /  A  ) '  )p0 

[  9]  &2:-t(ParseType  NT)lhEl 

[  10]  Cs*-2 , 5 , OpDs*- '  Converting  . .  .  '  ,0pCs*-7I5,0pDs,-AC[2;  18] 

[  11]  -*(1+4MP[3;C]  ,7TP)=(0,  a3,a4)(a5,  a6,a8)(a7,  a8,0) 

[  12]  Q 

[  13]  A3:K[I-(A/"K='  ')/xpE-Mi<T[;C]]-c?MISSaW 
[  14]  '-AE1'  DEX  '-A8,Mi4T[;C]-i"E' 

[  15]  &4:  ->(v/0=K-€ToDays" MAT[;  C]  )pAEl 
[  16]  -*A8,AMT[;C]-K 

[  17]  0 

[  18]  A5: -»a8 ,pMXT[ ;  C] *-Dtb'c[2] NumToChar  MATl;C] 

[  19]  i6:-(DEC=4MP[5;C])ia8,0 

[  20]  n 

[  21]  A7:MXT[;C]-Dtb"c[2]FromDays  MATl,C ] 

C  22]  D 

[  23]  A8 :  AMP  [3  4  5;C]*-TyP,  ('CND')  [TYP+CFLAG-l]  ,DEC 
[  24]  □WX'-PlaceEntry  C 
[  25]  -0.RC-1 

[  26]  D 

[  27]  D  Error  handling 

[  28]  &£1  :-*Al , OpCs*-ll ,  1 , 0pCs*-2  ,  5,0pDs*-'  Invalid  format' 


[  0]  TryNum  I;N 

[  1]  n 

[  2]  d  Try  to  maJce  column  N  of  'Get'  matrix  numeric;  if  that  doesn't 

[  3]  o  work  convert  matrix  column  I  to  character  type 

[  4]  O 

[  5]  W-I-4XC-1 

[6]  "  □£*  '-0 ,NMATl;ti]-l~NMATl;tf]' 

[  7]  □St'A-'C'  ToggType  I 


o  char  ->  num 
Q  cbar  ->  date 

Q  num  ->  cbar 
Q  num  ->  date 

Q  date  ->  cbar 

o  Update  parameters 
o  and  display 
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[  0]  R-VerShiff.I 

[  1]  0 

[  2]  Q  Adjust  line  numbers,  row  labels,  returns  DISL 

[  3]  a 

[  4]  R-(bWR,  5)p'2220  1  fI--l  +  (&OR-bRO)+%MR 

[  5]  *(Ay<>6)/,R'-U,4ltrRT[l](3AEC)[d<4MR)/l;]), . 

[  6]  Cs-i,2,0pDs-ai/r,i,awj,(ai/c-i),2,£C[i;16] 

[  7]  Cs-4, 2, Op Ds-R-,R 


Q  column  numbers 
Q  column  labels 
d  re-define  field 
Q  display  field 


C  0]  C-ask&col  PROMPT; C;  MSG 
C  1]  o 

[  2]  Q  Get  column  number  to  work  on,  return  immediately  if  escape  or 

C  3]  o 
[  4]  O " 

[  5]  Al:-(27=lTOC  Input  PROMPT)pO 

[  6]  -(C=,'  ')p0 

[  7]  '-aEI'  DEi4  ,-*(0#ppC-*C)pa£2l 

[  8]  -(CexAMC)pO 

[  9]  -AEO.MSG-'tfon  existing  column  number  specified' 

[  10]  aEI  :-*aE0  ,MSG*- '  Input  must  be  a  numeric  vector' 

[  11]  &E2:  MSG*-'  Specif  y  only  1  column,  please' 

[  12]  A  E0 : -A  1 , Op  Cs- 1 1 , 1 , Op  Cs-2 , 5 , OpDs-MSG 


[  0]  P*-ask&par  C 

[  1]  Q 

[  2]  0  Get  classif ication  data  for  numeric  vector: 

[  3]  Q  lower  limit,  upper  limit,  number  of  classes 

[  4]  0 

[  5]  -*(AMP[3; C]=0)pf^-0  o  no  classification  for  character  columns 

[  6]  P-" 

[  7]  A 1 ' P*-P  Input  'Column  lover  limit,  upper  limit,  number  of  classes' 

[  8]  -*(27=lTP)pO 

[  9]  -(l=AMP[3;C])pA2 

[  10]  -*(3fp P^Parse  P)pAEl 

[  11]  '-AE2'  DEil  '-(v/0=P-(6ToDays"2TP)  ,4DP[3])i0,AE3' 

[  12]  A2:'-*AE2'  []Ei4  1 -*(3=pP^iP)pO 1  o  data  must  be  numeric,  3  elements 

[  13]  o 

[  14]  AE1 : -*AE0 ,MSG>- 1  Specify  a  3-element  vector,  please’ 

[  15]  AE2:-*aE0,MSG'-1  Invalid  number  specified' 

[  16]  &E3 : MSG*-'  Invalid  date  specified’ 

[  17]  AE0.-*Al,0pCs-ll(l(0pCs-2,5>0pDs-MSG 


[  0]  RC-ff 

[  1]  o 

[  2]  0  Print  form  feed 

[  3]  o 

[  4]  HOAprint  CMF  13  12 
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[  0]  R-VAL  frequent  CLASS; A;B 

[  1]  Q 

[  2]  0  Counts  ocurrences  of  elements  of  xCLASS  in  VAL.  VAL  must  be 

[  3]  0  sorted  (A  or  ?)  and  must  not  contain  elements  not  in  xCLASS. 

[  4]  Q 

[  5]  R-CLASSpO 

[  6]  R[A/VAL]-B-(pfl)pO,B-(A-(-imL*l4>VAL)  ,l)/xpVAL 


[  0]  R*-Z  sorthsub  COL;C;S 

L  1]  a 

[  2]  Q  Sort  rows  of  matrix  Z  on  column  COL.  Sort  A  if  COL> 0,  ?  if  COL< 0. 

[  3]  Q  The  return  vector  R  contains  the  index  order  of  a  sorted  matrix  Z, 

[  4]  0  the  matrix  itself  is  NOT  sorted.  The  sorting  is  case  insensitive, 

[  5]  0  i.e.,  lower  and  upper  case  characters  are  considered  equal. 

I  6]  a 

[  7]  S-2  64p'  1 ()*+,-./0 123456789: ;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZi\] 

A_  !ox$+a'  1  ()*+  ,-./0 123456789:  ;<=>?abcdefg'iiijJclmnopqrstuwxyz[\]A_l 
[  8]  ->(l  +  (C0L<0)+2*hMPl3;C<-\C0L]>0)oChrPos,ChrNeg,NumPos,NumNeg 

[  9]  ChrPos :  -*0 ,  R*-SA^Z[ ;  C] 

[  10]  ChrNeg:-‘0,R-SV?Z[;C] 

[  11]  RiunPos:-*0,R*-A=Z[;C] 

[  12]  NumNeg-.R-H^Zt ;  C] 


[  0]  hclose 

[  1]  DWA-CISVR" '  Cz 


[  0]  RC-hdele te  F 

[  1]  Cz-'DL.'.F 

[  2]  RC-Cz 


1  ' Dz'  Q  Close  file,  retract  Cz,  Dz 


0  Delete  file  F 
o  RC:  AP210  return  code 


[  0]  R<-A  hfv  B;OIO;Cz;Dz;E;F 

[  1]  P 

[  2]  Q  Emulation  of  APL2/370  hFV  built-in  function  using  AP210 

[  3]  B  modified  to  speed  up  UEdit  (original  in  IBM's  FILES  workspace) 

[  4]  B 

[  5]  -•AsharelAEl 

[  6]  -((DIO-R-OXWC  1 A '  )pA3 

[  7]  B 

[  8]  B  Write 

[  9]  0 

[  10]  -*(a/0  2fE-hdelete  B)pAE2  a  Delete  existing  file  if  any 

[  11]  ->(0tE<-hwopen  B,  1  ,D'  )pAE2  a  Open  new  file  for  writing 

[  12]  Ft-(Bt-0)  ,2+r/ep“A  a  Max.  record  length 

[  13]  Al:-(B>pA)pO 

[  14]  Dz*-((-(<J>'  1  =E)xO) lE*-BoA)  ,DTC[l  2]  a  Write  each  record  in  turn 

[  15]  Cz-5 , F 
[  16]  -F-(0firE-Cz)pAE2 
[  17]  -*Al,B<-B+l 

[  18]  B 
[  19]  B  Read 
[  20]  B 
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P  Open  file  for  read 

p  I/iit  result  variable 

p  Init  counter  * records ,  scan  length 


[  21]  a3: -»(0*T£-Aropen  B,,,D')pA£2 
[  22]  R- '  ' 

[  23]  B-OxF-128 

[  24]  A  4  :  Cz*-4 

[  25]  a5  :  -*(  (“45  “44=T£) ,  0*T£-Cz)/a6  ,  a7  ,  a£2 
[  26]  R-R,c(-(<)> 1  1  =£)xO)!£*-"21Dz  p  Read  each  record  in  turn 

[  27]  -A4.B-B+1 

[  28]  A6:-»0,pR«-(-(CUF  26)=tt“ltR)iR  p  Remove  EOF  record  (if  there) 

[  29]  A7 :  -»(65400=F)pA£3 

[  30]  -»A5  ,  Cz-4 ,  B,  F-65400  L2*F  p  Double  seem  length 

[  31]  P 

[  32]  a£1  :  -»0  ,pCs-l  1 , 1 ,0pCs-2 ,5  ,0pDs- 1 AP210  not  active' 

[  33]  A£2:->0,pCs-ll,l(0pCs*-2,5,0pDs*-'>*P210  error:  ' ,  Aap210['l+  I  £;] 

[  34]  a£3  :  Cs-1 1 , 1 ,0pCs-2 ,5  ,0pDs-'  Invalid  file ' 


[  0]  ROAprint  V;X 

[  1]  P 

[  2]  p  Send  output  stream  to  AP81 

[  3]  P  RC:  0  -  OK,  1  -  APS1  missing 

[  4]  P 

[  5]  QWA-81  OS  VO  'X' 

[  6]  -»(2^QSV0  '  X'  )pA£rr 

[  7]  X-*V 

[  8]  QWA^QSVR  'X* 

[  9]  -*ROO 

[  10]  P 

[  11]  A£rr:  Cs-1 1 , 1 ,0pCs-2 ,5 ,0pDs-  '  AP81  is  not  active' 
[  12]  ROl 


[  0]  Z*-kreadv;RC 

[  1]  Cz-4 

[  2]  4((ROCz)€ 

[  3]  Z-RC  Dz 

[  0]  RC'~kropen  F 

[  1]  Cz*-  '  JR,  '  ,  F 

[  2]  RC-Cz 

[  0]  ROAshare 

[  1]  RC-210  □  SV 

[  2]  RO2=DSV0 

[  0]  ROAwopen  F 

[  1]  Cz>-'IW,'PF 

[  2]  RC*-Cz 

[  0]  ROAurritev 

[  l]  Cz-5,0pDz- 
[  2]  RC-Cz 


p  Read  record 

"44  _46)/'£C-0'  P  from  variable 
p  length  file 


p  Open  file  for  Read  Only 
p  RC:  AP210  return  code 


O’ 'Cz'  'Dz'  P  Share  global  variables  Cz,  Dz  with  AP210 

' Cz '  P  RC:  1  -  ok,  0  -  error 


p  Open  file  for  Read/Write 
P  RC:  4P210  return  code 

A 

A  P  tfrite  record  A  to 

p  variable  length  file 
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